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"So far as we are concerned, 
Paper Clip is the top word processor 

running on a micro computer**' 
Home Applications For The 064 






FAMILY COMPUTING 

"Paper Clip is one of the easiest 

of the professional word processors to use, 

with a sensible manual and plenty of aids for the accident-prone. " 

—Computing Now 
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Hn the night they hand out awards for speed, 
versatility, and dependability, the Commo- 
dore 1541 need not rent a tux. Third party 
drives like the MSD SD-2 and the Indus GI 
have bested it in every category but price. If that last word 
prompted you to say, "Aha! But see?", then you probably 
wouldn't even consider upgrading. And why should you? 
For the price you probably paid, your Commodore 1541 
does a more than adequate job. And it will do an even 
better job after you soup it up with the programs in this 
issue of Ahoy! 

• The most important program, unfortunately, you'll 
have to buy. In the conclusion to Disk Spinners, Morton 
Kcvelson examines three best-selling drive accelerators - 
Fast Load, Kwik-Loadl, and 1541 Flash -and helps you 
choose the package that's right for your needs. (Turn to 
page 33.) 

• Once you've sped up your 1541 you can speed up 
your ability to access it with Dos Plus. Dennis 
Muscatelti's C-64 utility puts a powerful tool kit at your 
fingertips. (Turn to page 39.) 

• Examining and modifying disk files is interesting 
and useful. Going through standard file processing rou- 
tines to do so is tedious. Mark Johansen's Disk Display 
and Update Utility (DSKDU to you) gives you direct ac- 
cess to any sector on a disk. (Turn to page 25.) 

• You'll never be able to bounce bullets off your disk 
drive. But Super Duper by Dave Barron (not Ahoyte 
Technical Editor, but a Mississippi-based programmer) 
will at least let you copy sequential or program files, re- 
name files, and dupe ML programs without knowing 
starting and ending addresses. (Turn to page 29.) 

• If there's anything worse than a word processor that 
scrolls horizontally, it's a disk directory thai scrolls ver- 
tically- namely, any C-64 disk directory that contains 
25 or more entries. But Two-Column Directory by 
Richard Lovctt and Barry Archer will let you view 40 
file names at a glance. (Turn to page 30.) 

We figure that's about all the sprucing up your disk 
operations can handle in one month. As for the rest of 
the programs and features in this issue: 

• The Commodore Font Editor by Adventure Interna- 
tional programmer Phillip Case will allow you to easily 
create your own personalized characters or character sets 
on the C-64. (Turn to page 82.) 

• Cal Overhulser's article/program on the Hardware 
Interrupt Wedge for the VIC 20 and C-64 will teach you 
to set up and utilize a "wedge" into cither computer's in- 
terrupt handler and perform various actions in the back- 
ground of your main program. (Turn to page 52.) 



• Ready for fun and games'? So are we! Larry Mur- 
dochs Tde Time for the C-64 is similar to those sliding 
number puzzles you used to buy at the dime store -but 
with infinitely more possibilities and infinitely less wear 
on your thumbs. (Turn to page 81.) 

• Don't get the butterflies playing Raid for the C-64, 
by Larry Coats and Noel Nyman. More important: don't 
let the butterflies get youl They're out to do just that as 
you try to scoop up all the inhabitants of Heartland. (Turn 
to page 60.) 

• It's been four months since you took soldering iron 
and drill in hand to accompany Tom Benford. the original 
hardware hacker, on a computer-carving adventure. This 
month he shows you How to Install a Reset Switch on 
your VIC or 64, permitting you to clear screen and mem- 
ory without interrupting power to the rest of your compu- 
ter. (Turn to page 13.) 

• The thought of drilling into the side of his precious 
C-64 agonized Morton the K to such an extent that he 
decided to contribute a companion article to Tom's, de- 
tailing alternate ways of installing a reset, or "warm boot," 
capacity. Morton's love for his computer is evident in the 
very title of How Many Hfrys Can I Reset Thee? Let Me 
Count the Ways. (Turn to page 16.) 

If you don't know assembly/machine language, and if 
you missed our April issue, we recommend that you bor- 
row a copy and read the first installment of Mark An- 
drews" Commodore Roots. Then read the second install- 
ment, found in this issue: By the Numbers. There's no 
more painless introduction to assembly language pro- 
gramming to be found anywhere. Included this month 
is a program that will easily convert numbers from deci- 
mal to hexadecimal to binary. (Turn to page 47.) 

And while your brain is in a machine language mode, 
read this month's Rupert Report. Dale takes you on an 
assortment of Assembler Escapades, showing you how 
to use an assembler to create an ML program, use a dis- 
assembler to view that program in memory, and convert 
the ML instructions into the DATA statements of a BASIC 
program. (Turn to page 55.) 

A passel of programs arc likewise included in this 
month's edition of Creating Your Own Games on the VIC 
and 64. in which Orson Scott Card details the logistics 
of Moving Virough Color Memory— and manipulating 
colors separately from characters in your original game 
programs. (Turn to page 18.) 

Do we envy you readers. As we write these words, 
it'll be several weeks before we can page through a copy 
of the May Ahoy! You can tear into one right now. What 
are you waiting for? —David Altikas 



New Number for Ahoy! BBS (as of April 15): 718-383-8909. (See page 77.) 
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CARTRIDGE COPIER 

[n an upcoming issue, Morton 
Kevelson will report on various 
products that let you put your C-64 
programs on cartridges. Among 
these will be the new CBUS cartridge 
backup system from R.J. Braehman 
Associates. 

The system consists of two parts: 
CBUS-1, which lets you copy the 
contents of any C-64 cartridge onto 
diskette; and the CBUS-2 cartridge 
emulator, a cartridge containing 16K 
RAM which allows you to load the 
previously copied cartridge program 
back into the computer and com- 
pletely emulate the original. 

While makers of cartridge-based 
software are sure to denounce CBUS 
for its inevitable promotion of pira- 
cy, the system does in fact provide 
two important advantages for law- 
abiding users. First, it eliminates the 
need to continuously swap cartridges 
to change programs, saving wear and 
tear on the expansion port. Second, 
it provides a valuable development 
tool for those who want to create car- 
tridge-based software by allowing for 
rapid testing and emulation of car- 
tridge-based programs without the 
need to continuously erase and repro- 
gram read-only memory chips 
(PROMs). 

Cost of CBUS 1 is $34.95. $49.95 
for deluxe version with accessory 
programs on disk. CBUS 2 is $84.95, 
S99.95 including disk. A combina- 
tion package, including all programs 
and hardware, is $1 19.95. Advanced 
users should inquire about the tech- 
nical manual for the system. 

R.J. Braehman Associates, Inc., 
P.O. Box 1077. Havcrtown, PA 
19083 (phone: 215-622-5495; for or- 
ders 1-800-CBUS-C64). 



Alphacom Aero: 130 cps print speed, 2K data buffer, path-seeking logic. 
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ALPHACOM PRINTER 

The S249.95 Alphacom Aero of- 
fers 1 30 character per second print 
speed. 2K data buffer, and path-seek- 
ing logic. 6X8 characters are print- 
ed with true descenders in a 6 X 9 
dot matrix field. The 9-wirc print 
head (using square needles tor max- 
imum image quality) prints either 
480 or 960 dots per line in alphanu- 
meric (allowing 96 ASCII charac- 
ters) or bit- image mode. Users may 
create their own character sets, and 
mix type styles (double strike, en- 
larged, etc.) on the same line. Mod- 
els for both RS232 and Centronics 
interfaces arc available. 

Additionally, Alphacom has cul 
the price of the intelligent printer car- 
tridge interfaces that link its Alpha- 
pro 101 daisy wheel printer (see Feb- 
ruary's Scuttlebutt) to various com- 
puters. Price of the particular inter- 
face required by Commodore users 
has dropped from $49.95 to $29.95. 



Alphacom. Inc., 2323 South Bas- 
com Avenue. Campbell. CA 95008 
(phone: 408-559-8000). 

WHEN THE RAIN COMES. . . 

Rainy Day Fun is the first in Thorn 
EMTs new Computer Clubhouse sc- 
ries, designed for children aged 5-9 
with the goal of providing activities 
that entertain while teaching a vari- 
ety of personal and social skills. 

The two-disk set ($39.95) features 
10 C-64 programs; Mask Maker 
(choose from 36 different face parts 
to create over 700 different masks 
that can be printed and worn). Paper 
Airplane (10 designs to print, with 
animated forward and backward 
rolls), Pin the Tail on the Donkey 
(find visible and invisible donkeys 
via musical clues). Conneei-the-Dots 
(create 40 pictures by connecting 
dots freehand or on the computer). 
Party Invitation Maker (create your 
own or pick from three predefined 
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Rainy Day Fun 




Keep the tykes out of your hair. 
READER SERVICE NO. 197 

designs). Sliding Puzzles (alphabet, 
number; and picture puzzles solved 
by moving squares around a 4 X 4 
grid). Banner Maker (print banners 
up to 40 feet long). Fortune Teller 
(friendly sorcerer answers questions). 
Coloring Book (color onscreen or on 
a printout), and Mouse Maze (help 
Mortimer the Mouse escape from the 
labyrinth). 

Thorn EMI Computer Software, 
3187C Airway Avenue, Costa Mesa, 
CA 92626 (phone: 714-751-3778)! 

ED SOFTWARE CATALOG 
AND NEWSLETTER 

DLM's 1 985 catalog features de- 
scriptions and sample screens of over 
40 educational programs, many for 
the Commodore 64. 

DLM, One DLM Park, Allen, TX 
75002 (phone: in TX 800-442471 1; 
rest of US 800-527-4747). 

Educational Activities has an- 
nounced Software Source, a quarterly 
newsletter to be mailed free to all its 
customers on a quarterly basis. In- 
eluded are questions and answers, 
software and hardware tips, and in- 
formation on the company's latest 
products . 

Educational Activities, Inc.. P.O. 
Box 392, Freeport, NY 11520 
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(phone: in NY, HI, and AK 516- 
2234666; rest of US 800-645-3739). 

GREEN ACRES 

Designed to assist anyone thinking 
of becoming one. Real Estate hives- 
tor will calculate mortgage payments 
for conventional, adjustable rate and 
balloon payments, mortgage amorti- 
zation of principal and interest, de- 
preciation (based on the |98l Eco- 
nomic Recovery Act schedule), and 
projected cash flow and taxable in- 
come. For the C-64; $35.00. 

Jance Associates, Inc., P.O. Box 
234. East Texas. PA 18046 (phone: 
215-398-0434). 

MUSIC LESSONS 

Keyboard Crazy consists of four 
games that teach children music fun- 
damentals; Melody Machine (play 
music while learning notes on the 
staff and keyboard), Sneak-a-Peek 
(match notes and note names). Copy 
Cut (reproduce notes and songs), and 
Mouse Maze (move the rodent 
through obstacles by playing the 
proper note). Included is a coloring 
hook that works in conjunction with 
the programs. For the 64; $24.95. 

Waveform Corporation, 1912 Bo- 
nita Way. Berkeley, CA 94704 
(phone: 415-841-9866). 

PRINTOUT 

The latest book releases of inter- 
est to Commodore users: 

Commodore 64 Basics: A Self- 
Teaching Guide ($15.95) offers a 
comprehensive course in writing and 
programming in BASIC, while Pro- 
gramming Tips for the Commodore 
64 ($14.95) teaches the more sophis- 
ticated skills needed to create graph- 
ics, animation, music, and sound ef- 
fects. John Wiley & Sons, Inc.. 605 
Third Avenue, New York. NY 
10158 (phone: 212-850-6000). 

Home Applications and Games for 
the Commodore 64 features 3 1 pro- 
grams ranging from home finance to 
Beowulf vs. Grendel. 514,50 from 
Little, Brown and Company, 34 Bea- 
con St., Boston, MA 02106 (phone: 
617-227-0730). 

Keyboard Challenge with Commo- 
dore 64 (SI 2. 95) combines literacy 
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BASIC programming self-taught. 
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training with specific subjects in 29 
games like Geography Invaders, 
Fraction Reaction, and Vocabulary 
War, Assembly Language Program- 
ming with the Commodore 64 
($14.95) teaches writing, debugging, 
and executing assembly language 
programs. Commodore 64 BASIC for 
Kids ($15.95) provides over 200 ex- 
ercises for elementary to junior high 
school students. All from Brady- 
Communications Co., Inc.. Bowie. 
MD 20715 (phone: 301-262-6300). 
Bowker's 1985 Complete Source- 
book of Personal Computing lists 
more than 750 personal computers. 
2500 peripherals. 1800 user groups. 
545 magazines. 6300 books, and 
3300 reviews. $19.95 from R.R. 
Bowker Company. 205 East 42nd 
St.. New York, NY 10017 (phone: 
212-916-1600). 

TELECOM NEWS 

The Sixth Sense terminal program 
from Microtcchnic Solutions can 
make decisions and perform actions 
based on user-programmed param- 
eters (such as time of day and exter- 
nal events), allowing it to do your 
telecommunicating while you're out. 
Other features are a 700 line virtual 
screen with bidirectional scrolling, 
standard screen for use with built-in 
editor, split-screen line input, and si- 
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Rwryoursetl in the pilot's seat of a Piper181 Cherokee Archertor an awe-inspiring flight over realistic seen 
from New York to Los Angeles. High speed color-filled 3Dgraphlcs will give you a beautiful panoramic vl 
as you practice takeoffs, landings, and aerobatics. Compfete documentation will get you airborne quickly 
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battle 
game. Flight Simulator II features Include ■ animated color 3D graphics ■ day, dusk, and night flying mode 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery I 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
Instrumentation ■ VOR, ILS, ADF, and DME radio equipped ■ navigation facilities and course plotting ■ World j 
War \ Ace aerial battle game ■ complete information manual and flight handbook. 



See your dealer . . . 

or lor direct orders enclose $49.95 plus S2.00 lor shipping and specify UPS 
or (list class mail delivery. American Express. Diner's Club, MasterCard, and 



Visa accepted. 



Order Line: 800 / 637-4983 
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A New Technology 




Floppy disk 
performance for 
your Commodore* 
at audio 
cassette prices, 

Entrepo's QUICK DATA 
DRIVE" brings high speed 
mass storage to the Commo- 
dore*64 ,M and VIC 20.™ De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 2 1 K program in 
about 20 seconds instead of 
8 minutes for audio cas- 
settes and I minute for the 
Commodore Disk Drive. 

■ Suggested retail price 
under $85 

■ 20 times faster than audio 
cassette 

■ Fully automatic opera- 
tion — needs no rewinding 

■ Highly reliable 

■ Can be used with a second 
drive or an audio cassette 

■ Comes with file manage- 
ment system and utility 
program 

■ Top selling software avail- 
able on Microwafer™ 
media 



♦ entrepo 

ENTREPO, INC. 

1294 Lawrence Station Road 

Sunnyvale, California 94089 

(408)734-3133 

Telex 176337 



Render Strvlct No. Z13 



Mlcrowafer'™ la u trademark lit Enlrcpo, Inc. 
Commodore* 64'" and VIC20'" arc trademark* 
olCommodorr International, Inc. 
ft IBM ENTRKPO, INC. 
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multuneous downloading to screen, 
printer, and disk at 1200 baud. On 
disk for the 64: $89.95 (20% dis- 
count for registered owners of Smart 
64 Terminal). 

Microtechnic Solutions. Inc., P.O. 
Box 2940. New Haven. CT 06515 
(phone: 203-389-8383). 

The Instant Yellow Pages offers 
online business information from a 
database of 6 million listings. Charge 
is $1 .00 per minute and l()c per rec- 
ord printed, plus $15 per month sub- 
scription fee. 

Instant Yellow Page Service, 
American Business Lists, Inc. 5639 
South 86th Circle. P.O. Box 27347. 
Omaha, NE 68127 (phone: 402- 
331-7169). 

Pctsean. a free 24-hour database, 
provides information on feeding, 
housing, and health care of animals 
from pooches to parakeets. Phone 
number is 303-223-1297. 

The Advocate. P.O. Box 8896. Ft, 
Collins, CO 80525. 

CompuServe has replaced their 
Email service with EasyPlex, offer- 
ing a 50-name address book for each 
user, menu, prompt, and command 
modes, and automatic line 
numbering, 

Additionally, CompuServe has 
made the Academic American Ency- 
clopedia available at a subscription 
rate of S49.95 per year for unlimited 
searches (in addition to the normal 
connect charges). 

Finally. CompuServe has an- 
nounced that beginning in May they 
will sponsor The Online Computer 
Connection, a five-minute radio pro- 
gram reaching 100 cross-country 
markets and allowing listeners to in- 
teract with the program via their 
computers during regular connect 
times at no additional charge. 

CompuServe, 5000 Arlington 
Centre Blvd., P.O. Box 20212. Co- 
lumbus. OH 43220 (phone: 614- 
457-8600). 

ECHO Systems has announced 
Echo Canada, a Toronto-based 
branch that will spare Canadian us- 
ers the cost of calling the US. A spe- 
cial rate is being offered to the first 
1000 subscribers. 

ECHO Systems. 4739 Alia Road, 




GE\ TXP- 1 000 prints in 16 dot matrix on rolled, fan/old, or cut sheet paper. 
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Marina del Rey. CA 90292 (phone: 
213-823-8415). 

BETTER CONNECTION 

The price of The Connection in- 
terface from Tymac (see Printer In- 
terfacing. March '85 Ahoy!) has been 
lowered from $1 19.95 to $99.95. It's 
also been enhanced to configure to 
most parallel printers via software, 
and to include a programmable char- 
acter set which can be downloaded 
to create various type styles, as well 
as a universal screen dump for black 
and white and popular color printers. 

Tymac Controls Corporation , 127 
Main Street, Franklin, NJ 07416 
(phone: 201-827-4050). 

GE PERIPHERALS 

General Electrie's announcement 
that they will produce peripherals for 
specific home computer systems (in- 
eluding Commodore) puts the com- 
petition among third party manufac- 
turers in a new light. Because GE is 
the first entrant in the Commodore 
market capable of swallowing all the 




GE 3-8200 modem is acoustic/modular. 
READER SERVICE NO, 200 



other third party manufacturers put 
together, they have the wherewithal 
to drive prices down below other 
companies' profit margins. The pric- 
es of the releases described here may 
not appear trendsetting-but wait un- 
til the other giants of the home elec- 
tronics field follow GE's lead into the 
Commodore market. Small, indepen- 
dent manufacturers of quality peri- 
pherals will continue to sell to the 
quality conscious: the me-too manu- 
facturers will cease to be. 

The model 3-8200 modem, oper- 
ating at 300 baud, includes both an 
acoustic coupler for hard- wired 
phones and a direct mode for use 
with modular jacks. Other features 
include automatically switchablc an- 
swer/originate nKxles and battery op- 
eration. Price: $119.95. 

The TXP- 1 000 printer operates at 
25 or 50 characters per second, with 
full graphics capability and variable 
width print modes. The $299,95 unit 
hooks up to the C-64 via an S89.95 
interface. 

Why no Commodore-compatible 
disk drive? GE is waiting to perfect 
the one they're currently working on 
— which will read data files from all 
home computers. 

General Electric Company. Elec- 
tronics Park. Syracuse, NY 13221 
{phone: 315-456-2446). 

NEW GAME RELEASES 

Despite the witty title variation. 
Electronic Arts' Racing Destruction 
Set is one of the two latest entries in 
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Kennedy Approach: rule the akics. 

READER SERVICE NO. 205 

its Construction Set line, enabling the 
user to customize and combine a host 
of supplied elements into an original 
program, Provided are some of the 
world's most famous tracks (Monaco, 
Indianapolis, etc.), nine types of ve- 
hicles ranging from Lunar Excursion 
Modules to stock cars, four differ- 
ent backgrounds, and variable sound 
effects. 

The track can be changed segment 
by segment, with three widths, sev- 
en elevations, and three surface op- 
tions (ice, dirt, and paving) available. 
Players can lay land mines and oil 
slicks in one another's path, or even 
alter gravity. Vehicles can be 
changed with regard to speed, tire 
type, amount of armor, and design. 
An isolated camera display with split- 
screen scrolling enables each player 
to view his car and its position on the 
track no matter where his opponent is. 

Mail Order Monsters lets players 
design their own beast ies from a cat- 
alog of 12 body types. 20 enhance- 
ments (fangs, tentacles, etc.), I? 
weapons, and 6 defenses. Completed 
monsters can be sent to demolish one 
another in three different battle sce- 
narios on three skill levels. You can 
save your most revolting creations to 
disk for future customization and 
gameplay . 

Both for the C-64; 535.00 each. 

Electronic Arts, 2755 Campus 
Drive. San Mateo. CA 94403 
(phone: 415-571-7171). 

By putting the entire track on- 
screen, Gamestar's On-Track Racing 
eliminates the need to pause or re- 
start when one player gets too far 
ahead of the other (as in scrolling 
race games) or sacrifice drama by 
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splitting the screen. The competition 
takes place on 10 famous raceways. 
For the 64 and 128; S29.95. 

Gamestar, Inc., 1302 State Street, 
Santa Barbara. CA 93101 (phone: 
805 -963-3487). 

The winning entry in Progressive 
Peripherals' contest challenging us- 
ers to build levels from the Wizard 
construction set for a second game, 
the Wizard Expansion Set is a more 
demanding version than the original 
(required in order to play the Expan- 
sion Set). For the C-64; S29.95. 

Progressive Peripherals & Soft- 
ware, 2186 South Holly. Suite #2, 
Denver. CO 80222 (phone: 303- 
759-5713). 

Ousted air traffic controllers can 
wax nostalgic playing Kennedy Ap- 
proach, simulating the control tow- 
er situation at various American air- 
ports. Up to twenty aircraft can be 
radioing you at one time (utilizing 
speech synthesis); you must guide 
them all to a safe landing. For the 
C-64; $34.95. 

MicroProse Software. 120 Lake- 
front Drive, Hunt Valley. MD 21030 
{phone: 301-667-1 151). 

Two games previously announced 
by Tymac, now available for the first 
time, at $39.95 each: 

As Gandalfthe Sorcerer, you use 
power bolts to defend your castle 
from the lizardmen who seek to steal 



your treasure and drag your appren- 
tices off to Lizard Lair, On disk or 
cassette for the 64. on cartridge or 
cassette for the VIC. 

Flyer Fax utilizes 3D graphics and 
soft ware -generated speech to put you 
in the cockpit of a jet fighter, defend- 
ing commercial airliners from mur- 
derous Migs. On disk or cassette for 
the C-64. " 

Tymac Controls Corporation. 
Franklin, NJ 07416 (phone: 201- 
827-4050). 

4K RAM ROBOT 

Sure to be a riot at the school sci- 
ence fair. The Memocon Crawler is 
a 5 ] A" diameter robot that can be 
maneuvered with a seven-function 
controller or a C-64 (via a special in- 
terface). The 4K RAM automaton 
can go forward, right, or left, pause, 
sound a buzzer, light an LED, or re- 
peat a program continuously. Robot 
and controller is $74.95: C-64 inter- 
face (assembly required) is S39.95. 

OWl Inc.,' I 160 Mahalo Place, 
Compton, CA 90220 (phone: 213- 
638-4732). 

T-64 

A column as densely packed with 
hard news as Scuttlebutt needs some 
diversion. It's provided this month by 
Diversions Inc.. makers of the Un- 
der ware Ribbon, which allows you 




Two printed circuit hoards contain alt electronics of Memocon Crawler. 
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VIDEO BASIC-64 • ADD 50+ graphic and 

sound commands to your programs with this super 
development package. You can distribute Iree RUN- 
TIME version without paying royalties! 
ISBM 0-916439-26-7 $59.95 

BASIC COMPILER 64 • compiles the 

complete BA5IC language into either fast 6510 

machine language and/or compact speedcode. Gel 

your programs into high gear and protect ihem by 

compiling. 

ISBN" 0-916439-17-e $39.95 

MASTER-64 - professional development 
package (or serious applications. Indexed file 
system, lull screen management, programmer's 
aid, BASIC extensions. 100 commands 
ISBN* 0-916439-21-6 $39.95 

PASCAL-64 • full Pascal with extensions for 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines 
ISBN* 0-916439-10-0 $39.95 



ADA TRAINING COURSE - teaches 
you the language ol the future Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 120 + 
page guide. 
ISBN* 0-916439-15-1 $59.95 

FORTH-64 - loaded with hires graphics, com- 
plete synthesizer control, lull screen editor, pro- 
gramming tools, assembler. 
ISBN D-91B439-3Z-1 S39.95 

C LANGUAGE COMPILER - a lull C 
language compiler Conforms to the Kernighan & 
Ritchie standard, but without bit fields. Package in- 
cludes editor, compiler and linker 
ISBN0 0-916439-28-3 S79.95 

ASSEMBLER MONITOR-64 - a 

macro assembler and extended monitor package. 
Assembler supports floating point constants 
Monitor supports bank switching, quick trace, single 
step, more, 
ISBN* D -9 16439- 11-9 $39.95 



XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 
ISBN* 0-916439-27-5 $17.95 

OTHER TITLES ALSO AVAIL- 
ABLE • WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today for the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include S4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard, 
VISA and American Express accepted. 
Michigan residents ■■ 
incl 4% sales tax. Wm" 
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FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 



j» ■ You Can Count On ft?WIIIg| ^ _£* -^ ^ ^^ 

Abacus MBS Software 



P.O. Box 7211 Grand Rapids, Ml 49510 - Telex 709-101 - Phone 616/241-5510 
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to produce T-shirt iron-ons on plain 
computer paper. Software to draw 
and print the screen image is not in- 
cluded. Available for the Epson, 
Okidata, and Gemini dot matrix 
printers, each $19.95 ribbon will 
yield a minimum of 20 transfers. If 
you'd like to produce full color iron- 
ons, a set of five ColorPens for fill- 
ing in the iron-on images is also 
available for $19.95. 

Diversions Inc., 1550 Winding 
Way, Belmont, CA 94002 (phone: 
415-591-0660). 

DO-ALL DISK DRIVE 

A $399 dual disk drive soon to be 
released by World Disk Drive will 
include an IEEE bus, serial and par- 
allel printer interface ports, and a 
disk with printer dumps that can re- 
produce all Commodore characters. 

Unlike the MSD SD-2, whose se- 
cond drive exists primarily for mak- 
ing backups, these twin drives will 
be independent of each other and 
able to be addressed separately. The 
World drive will also boot all Elec- 




Reset Master: a cinch to install, 
HEADER SERVICE NO. 232 

tronic Arts games, which the MSD 
does not. 

An additional S29 will buy a 
fast- loading cartridge with copy 
routines, BASIC 4.0. and a DOS 
wedge. 

World Disk Drive. 23501 Ridge 
Route Drive. Bldg. D, Lag una 
Hills, CA 92653 (phone: 
714-855-1761). 

OFF THE HOOK 

A postscript to last month's Ship 
to Share, wherein Cheryl Peterson 
reported on the plight of Tom Tcim- 
pidis, Los Angeles-based SYSOP 



facing persecution for telephone 
fraud over the appearance of an 
AT&T credit card number on his 
BBS: the city attorney's office has 
dropped the ease due to lack of suf- 
ficient evidence to prove that Mr. 
Tcimpidis knew the number had 
been posted. 

It was stressed that the decision to 
drop the case did not reflect any un- 
willingness to prosecute future 
SYSOPs whose boards post illegal 
messages, 

RESET SWITCH 

If you don't care to try any of the 
methods suggested in this issue by 
Tom Bcnford and Morton Kcvelson 
to Install a Reset Switch on your VIC 
or 64 (see page 13), you can take 
the easy way out and purchase 
Master Software's new Reset 
Master. 

The switch, which plugs into any 
serial port on your system, will reset 
your C-64 or VIC 20 without shut- 
ting off the power, and restore con- 
Continued on page 83 



Make Your Home Secure and Energywise 

. . . with Genesis Home Control Products 

: At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 

The Genesis VI Controller allows you to control up to 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control schedules. 

Your system can be expanded by adding Genesis' COMsense input device, Super _ 

Schedule Plus software, and available sensors. Commands can ' 

then be issued in response to on/off inputs such as the . ..... Mm 

opening of a door or analog inputs such as a change in .. = -.-v.--.--:--j ^ 

light level. By adding COMclock, a crystal 

controlled clock/calendar, your system will ** 

have an accurate, battery I 



backed-up time base, 
COMclock 's Autoboot ROM 
acts as a failsafe restart for 
the system in the event of 
a power failure. 



Sold separately the VIController, 
COMsense and COMclock 
sell for $69.95 each and 




the Super Schedule Plus software sells for S19.95. All four products are available together in our HOME CONTROL 
•PACKAGE for only S199. 95. 

Call 215-861-0850 to order direct or contact your local dealer. 



Genesis Computer Corp. • P.O. Box 152 • Hellertown, PA 18055 
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T~ hey say that people gen- 
erally have 20-20 hind- 
sight, and this is true even 
. of the design team at 

Commodore. The most faithful sup- 
porters of the Commodore 64 must 
admit that there are a few areas in 
which their computer is lacking. One 
example is the absence of a reset, or 
"warm boot," switch. On the Plus/4 
and C-16 computers. Commodore 
provides this switch as standard 
equipment, having learned a thing or 
two from the C-64 and VIC. What 
I'm presenting here is an inexpensive, 
simple way to add on one of these 
handy gizmos to your present Com- 
modore computer. Since we'll be 
hooking it up to the user port, the 
same instructions and connections 
apply to cither the VIC 20 or C-64, 
which have identical user ports. 

What does a reset switch do? It 
performs almost the same way the 
power (on-off) switch of your com- 
puter does, with a couple of major 
benefits. One of these is clearing the 
screen and memory while not inter- 
rupting power to the rest of the com- 
puter; it allows you to reinitialize the 
system without having to turn the 
C-64 off and then back on again. 
There are many, many uses for such 
a switch, among which are restart- 
ing a game or utility cartridge, or 
more practical applications such as 
regaining control of your computer 
without having to turn it off and then 
on again. The possible applications 
of a reset switch for specific pro- 
grams (both commercial and of your 
own device) are numerous; in fact, 
there arc literally thousands of uses 
for this "warm start" (also called 
"warm boot") capability, and your 
imagination is the only limit on what 
you'll use it for. 



While this is a perfectly safe and 
simple modification, it will void your 
warranty, if still in effect. Also note 
that neither I nor Ahoy! can assume 
any responsibility for damage to your 
computer by performing this modi- 
fication on it. If you have any reser- 
vations about your soldering sapi- 
ence, it may be a good idea for you 
to give this article and your compu- 
ter to a friend or technician who can 
complete the project for you. 

Construction is fairly simple, with 
only a basic knowledge of soldering 
techniques required. The bill of ma- 
terials is equally minor, and the 
whole project should take well under 
one half hour to complete. Let me 
mention first that the switch we'll be 
using is a standard Radio Shack item 
that comes five to a package. You'll 
only need one switch for this project, 
so you may want to give the others 
to friends or members of your user's 
group. Or, you may want to keep the 
extras for possible use on future pro- 
jects we'll be covering: the choice is 
yours. Now, let's get our shopping 
and tool lists together! 

Parts List {Figure 1); 

1 package (5) Miniature Push But- 
ton Switches -Momentary SPST 
Contacts, Normally Open {Radio 
Shack #275-1547)-$2.49 

Approximately 3 feet light single 
conductor wire {30-gauge AWG 
wire-wrap wire is ideal) -$.50 

Tools Needed (Figure 1): 

Medium-heat (30-50 watt) solder- 
ing iron 
Rosin-core electronics solder 
Wire strippers/pliers 
Phillips screwdriver 
Electric drill with %" bit 
Towel 
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By Tom Benford 
Photos by Liz Benford 




Figure 4 



1. Tools and parts needed, 2. Removing 3 
case screws. 7. Disconnected wire harnes- 
ses (keyboard and I.ED). 4. Lifting copper 
foil tape from shield. 
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Figure 6 




Figure 8 



5. Drilling hole for switch in top cover of 
C-64, 6. Tinning the wire ends, 7. Solder- 
ing wires to the user port-pins ft I (ground) 
and ti.\ (reset) are the ones we're using. Hol- 
der as close to the inside of the circuit board 
as possible. 8. Soldering wire ends to switch 
terminals. 

CONSTRUCTION 

Find a clean, well-lit area to work 
on, spread out the towel, and invert 
your C-64 on it (the towel will pre- 
vent you from marring or scratching 
the computer). Make sure that every- 
thing is disconnected from the C-64: 



power, serial, monitor, eartridgv , 
and user ports should all be empty. 
Remove the three Phillips-head 
screws that join the two case halves 
together, and put these screws some- 
where safe for the time being (fig- 
ure 2). Turn the computer right-side 
up and gently separate the two 
halves. You'll notice that there are 
wires connecting the top to the bot- 
tom half. These are the LED indica- 
tor at the lower right of the circuit 
board and the keyboard harness at the 
left side; both of these wires pack- 
ages use slide-on connectors. Pull 
gently on (he connectors themselves 
to remove them from the circuit 
board (figure 3). You should now lie 
able to Jul ly remove the lop hal f of 
(he computer; do this and set it aside 
for the moment. 

Late model C-64s have a paper/ 
foil shield to cut down on TV and 
radio interference. If yours has this 
shield, lift the copper foil tape from 
it and peel it back (figure 4). Once 
this is done, you'll be able to fold the 
interference shield forward, thus ex- 
posing the heart and soul of the com- 
puter- the actual circuit board it- 
self. 

To the upper left you'll sec the con- 
tacts of the user port- we'll be mak- 
ing our solder connections to contacts 
#1 and #3 (sec diagram #1 , counesy 
of the C-64 owner's manual). 

Plug in your soldering iron to get 
it up to working temperature. While 
the iron is heating up, we can pro- 
ceed to drilling the hole for the 
switch. 

Placement of the switch is largely 
a matter of choice, but I recommend 
putting it right next to the power in- 
dicator LED; it gives a more "pro- 
fessional" appearance, as well as 
keeping it out of harm's way. Using 
a 3 / 9 



V bit, drill a hole through the top 
of the computer keyboard about 3 4" 
away from the LED (figure 5). Clean 
any remnants of drilled plastic from 
both the outside and inside areas of 
the keyboard. Remove the nut from 
the switch and give it a test-fit to 
make sure it fits in the hole easily 
(you may have to ream the hole 
slightly for a comfortable fit). 




Figure 9 




Figure 10 




Figure 12 



9. Completed connections to user port pins 
#1 & H3. 10. Completed connections to 
switch, with wiring tucked under shield. 11. 
Just prior to closing: keyboard & LED har- 
nesses hack in place, switch mounted on 
top cover, wiring tucked away. 13. Com- 
pleted installation. Looks factory-perfect! 

Your soldering iron should be up 
to working temperature now. Cut 
your hookup wire into two 16" 
lengths, and strip about 14" of insu- 
lation from both ends of both piec- 
es. When this is done, "tin" all four- 
wire ends with a small amount ofsol- 
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HOW TO AVOID 
BECOMING A 
DINOSAUR. 

If dinosaurs had kept up with their rapidly changing 
world, you might have a pet bronto today. (It's 
probably just as well they didn't, since they 
wouldn't fit into a small imported car anyway.) 

The point is, if you don't want to get left 
behind today, you need a computer with 
the latest software and accessories. 
No question about it. 

The only question is, "where 
do I buy it?" 

Ah! We thought you'd never 
ask. Computer Warehouse, of 
course. Nice guys, great 
prices. Give us a call today. 
We'll get your shipment 
out bronto — 
er, pronto. 




MONITORS 

Commodore 1702 
Gorilla (green) 
Gorilla (amber) 



$209.95 
S 79.00 
S 89.00 



PRINTERS 

Commodore 1526/802 $209.00 

Commodore 803 S1 69.00 

Panasonic 1090 $239.00 

Gemini 10X $249.00 

Gemini 15X $349.00 
Power Type (Daisy 

Wheel) $369.00 

Radix 10 $499,00 
ELITE 5 CD (Daisy Wheel) 

Direct connect for 

Commodore $299.00 

AXIOM AT 550 $259.00 

StarSGIO $269.00 

StarSDIO S399.00 

Star SR 10 $499.00 
Okidata 82,83,84, 92, 93 CALL 
Okimate 10 Color 

Printer $199.00 

Panasonic 1091 $299.00 



DISK DRIVES 

Commodore 1541 
Ran a 1000 
Indus GT 
MSD Single Drive 
MSD Dual Drive 



$199.00 
$199.00 
$299.00 
$299.00 
$499.00 

ACCESSORIES 

We carry a full line of covers, 
ribbons, storage cases, surge 
suppressors and cables 



MODEMS 

Westridge Automodem S69.95 

MPP 1064 $79.95 

Tola! Telecommunication $69.95 
Modem 300 by 

Commodore $89.95 

PRINTER INTERFACES 

Cardco B $39.95 

CardcoG+ $69.95 

TYMAC Connection $79.95 

TURBO GT $69.95 

AXIOM Interface $79.95 

SOFTWARE 

Flight Simulator II $36.95 

Super Base 64 $59.95 

Paper Clip (w/spell) $79.95 

Multiplan by Microsoft $59.95 

Word Pro 3 Plus $39.95 

Koala Touch Tablet $69.95 

Tax Advantage $69.95 

Write Now (Cardco) $39.95 
Mastertronic Disk Game 

(C64) S 7.99 

DISKETTES* 

Computer Warehouse 

ss/dd $14.95 

Elephant ss/sd $13.95 

Elephant ss/dd $16.95 

Maxell MD 1 $18.95 

Maxell MD2D $24.95 

SKC ss/sd $13.95 

SKC ss/dd $16.95 
" Prices per box of 10 



We carry a lull line ol Commodore Hardware and Software. 

COMPUTER 
WAREHOUSE 

(in FL) 305-274-3680 ; 1-800-372-0214 
7222 S.W. 117th Avenue, Miami, FL 33183 

Add 3% lor shipping and handling charges. (S3 minimum) Ad prices reflect S% cash 
discount. Credit card orders should add 3%. Prices subject lo change wilhoutnonca. 
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tier. This is done by melting solder 
onto the wire ends; not too much, 
though -just enough to coat the wire 
ends with solder (figure 6). 

Refer again to the diagram of the 
user port. With the circuit board fac- 
ing you, the #1 contact is the one on 
the extreme right, and #3 is the third 
one from the right. Solder one end 
of each wire to each of these con- 
tacts, but make sure that you solder 
them as close to the circuit board as 
possible. The reason for this is so that 
the solder/wire won't interfere with 
the contacts of the port when using 
a modem or other peripheral. Since 
you've tinned the wire ends, only a 
small amount of heat should be nec- 
essary to complete the connections 
(figure 7). 

When these connections are com- 
pleted, take the remaining two wire 
ends and solder each of them to op- 
posite terminals on the switch (fig- 
ure 8) -the order doesn't matter on 
these. The completed connections 
should look like those in figures 9 
and 10. 
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64 or VIC user port, plus descriptions 

of pitioitts for input/output devices (see 

C-64 User's Guide, p. 142). 



Assuming everything's gone 
smoothly so far. you should now be 
ready for reassembly. Insert the 
switch into the hole in the top cov- 
er, secure it with the nut. and tight- 
en it up. You won't need the wash- 
er, so discard it now. 

Place the top half over the bottom 
half, fold the interference shield back 
to cover the board, reaffix the cop- 
per foil tape to the shield, and plug 
in the two harness connectors. These 
connectors are "keyed" so they'll only 
go on the right way. Don't force them 
on! When the connectors are posi- 
tioned over the pins correctly, they 
should slide right on with very little 
effort {figure 11). When you've got 
them in place, close the two halves 
of the computer. 

Now invert the computer, replace 
the three screws, and tighten them 
to finish the job. That's it! 

The finished job should look like 
figure 12. The switch looks like it 
grew there, doesn't if.' Plug the pow- 
er cable back in. as well as the other 
cables, and you're ready to roll. D 
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By Morton Kevelson 

out drawings on pages 142 and 143 
of the manual supplied with the 
Commodore 64 (pages 150 to 152 
for the VIC 20) you will notice that 
the reset line is available at the user 
port, the serial port, and the cartridge 
port. In fact, the corresponding pins 
of each of these ports are electrical- 
ly identical due to a direct connec- 
tion inside the computer. A reset 
switch may be connected between 
ground and the proper pin at any one 
of these ports. 

THE USER PORT 

In the user port, as we have 
pointed out, the reset line is on pin 



I've always been reluctant to 
perform surgery where it 
shows on a finished commer- 
— cial product. This probably 
stems from an initial conservatism 
against violating the sanctity of the 
manufacturer's warranty, or perhaps 
a misguided urge to preserve the re- 
sale value for as long as possible. 
Whatever the reason, I surmise that 
many users share this reluctance with 
me. It thus seems fitting to present 
a number of ways by which you can 
add a reset button to the Commodore 
64 or the VIC 20 without opening the 
computer. 
If you carefully examine the pin- 
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three. If you simply connect a push- 
button switch between this and 
ground on pin one the job will be 
complete. Figure 1 illustrates how to 
use a 24 pin edge card connector 
with the pins on .156 inch centers. 
Properly done, the pin spacing allows 
the switch to be self mounting. To- 
tal cost is about $2,50 for switch and 
connector. You may want to cover 
the exposed pins with some insulat- 
ing tape to prevent electrical shorts 
tlue to contact with foreign objects, 
'['he proper pins can be easily loca- 
ted by simply orienting the connec- 
tor as shown in the manual. The pin 
identification should be molded in the 



connector housing, making the job 
even simpler. Remember, all of the 
pinouts in the Commodore manuals 
are as viewed from looking at the 
back of the computer. 

THE SERIAL PORT 

The serial port has the reset line 
on pin six with ground on pin two. 
If you do not have a disk drive or 
printer you can actually mount a 
switch on a six pin DIN connector 
and install it at the serial port. Pub- 
lie Domain. Inc. (5025 S. Rangelinc 
Rd,. West Milton. OH 45383- 
phone 513-698-5638) offers a com- 
pleted assembly for just $5. If you 
have a disk drive, the second port on 
the 1541 can be used just as easily. 
If you also have a printer, there is 
still a way to add a reset switch to 
this port, although the method is 
somewhat crude. It will require some 
minor surgery of the disk drive con- 
necting cable. Carefully slit the in- 
sulating cover and remove some of 
the copper braid which shields the in- 
ner conducters. In the case of the ca- 
bles supplied by Commodore, the 
wires you want are colored purple 
and blue. Other manufacturer's ca- 
bles may have different color code 
schemes. Simply connect the termin- 
als of the switch directly across the 
wires. Be careful to maintain contin- 
uity of the existing circuit. Figure 2 
shows a partially completed job. To 
finish things off, just wrap the ex- 
posed connections with insulating 
tape. 

THE EXPANSION PORT 

The cartridge port offers a unique 
opportunity for adding a reset but- 
ton. Just find a suitable cartridge, 
which you intend to leave in place 
all the time, and install the switch. 
The Epyx Fast Load cartridge (re- 
viewed in this issue) is a particular- 
ly good choice. If you do a soft re- 
set by entering SYS 64738, the Fast 
Load cartridge is disconnected. If 
you hit the reset button, the cartridge 
is reconnected. Figures 3 and 4 show 
the installation. Of course, you will 
have to carve up the cartridge some- 
what, but cartridges arc much cheap- 



er than computers. Some cartridges 
(such as Fast Load) are held togeth- 
er by a screw hidden under the la- 
bel. If you feel around the top it will 
be easy to locate. 

PUSHING THE BUTTON 

Interestingly enough, when you 
push the button everything grinds to 
a halt. It is when you let go that 
things take off. All the major chips 
in the C-64. with the exception of the 
V1C-II chip, are reinitialized. When 
the button is released, the micropro- 
cessor starts executing the code 
whose starting address is stored in 
65532 and 65533 (SFFFC and 
SFFFD). (For a more detailed dis- 
cussion refer to the Expose of the VIC 
& 64 Operating System in the Jan- 
uary "85 Ahoy!) Just remember that 
all serial bus peripherals will also be 
reset by the reset button. It would be 
a gcxui idea to remove any disks from 
the drives before initiating a hard- 
ware reset. 

ON SEMANTICS 

The term "Warm Boot" generally 
refers to a partial reset of a system 
without turning the machine off and 
then on. The term "Cold Boot" re- 
fers to the startup procedure the com- 
puter follows immediately after pow- 
er on. The reset button discussed in 
these articles actually has the effect 
of making the computer go through 
the initial power on sequence. Thus, 
some may argue that the switch be 
called a "Cold Bool" switch, and the 
term "Warm Boot" reserved for the 
SYS mentioned above. Others go so 
far as to argue that even the SYS 
command should be referred to as a 
"Cold Boot." We prefer to avoid the 
whole issue by simply referring to 
the reset switch as a "Hardware Re- 
set" and the SYS command as a 
"Software Reset." leaving all temper- 
ature considerations to the budding 
meteorologists in our audience. 

Alert readers may have noticed 
that the word reset in the Commo- 
dore manuals is printed with a line 
above it. This is simply the logical 
negation symbol. Purists may read 
this as "not reset." It means that the 
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Figure 1 




Figure 4 



1. User port reset: note position of contacts 
1 A Jul left end of top row. 2. Reset switch 
installed on serial port cable (top) & user 
port connector (bottom). 3. Internal 
connection of switch in Fast Load 
cartridge. 4. Completed assembly. 

reset action takes place when this line 
is a logical 0, or in our case by pull- 
ing the five volts normally on this 
line to ground or volts. 

As with all construction projects 
presented in Ahoy!, the user assumes 
all responsibility for any catastro- 
phies which may result from self-in- 
flicted tinkering. □ 
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he VIC and 64 
allow you to 
manipulate 
colors separately 
from characters 
-which can do, 
a lot more than 
just brighten 
your game. /- 
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J x"*'~~"~7m cccntly I was at a party where a lot of 
g / M M science fiction and fantasy writers and 
'^S Mw ^ readers were gathered. I have no shame 
\~\ M J - 1 look at such events as therapy for my 
£p~J f m ego and I milk them for everything 
5L-^^ ^ they're worth. 

I was told that one of the guests was Walter Meyers, 
a professor at North Carolina State who happens to be 
on the panel that gives out the Campbell Memorial 
Award for the best science fiction novel of the year. 

Now, we writers, sophisticated and worldly as we are, 
all pretend that awards mean nothing to us. But all the 
time we're saying that, we're swallowing hard to keep 
from drooling at the thought of getting one. 

So I was prepared to discuss, modestly, the signifi- 
cance of my contribution to science fiction and fantasy 
literature. 

Instead, he handed me a disk. "I've been reading your 
column in Ahoy!" he said. "I wondered if you'd look 
at these games." He mentioned that he had created some 
really dazzling sound and graphics. And when I got the 
disk home, darned if he hadn't. 

The disk contained several games, but they were all 
linked with a menu program. The menu began with some 
messages in nice large characters. Then we were given 
a musical interlude in Digit's Music Hall. A curtain op- 
ened to reveal a beautiful pipe organ. A penguin walked 
on, sat up to the organ, and played some Bach. The pen- 
guin's fingers moved properly on the keyboard; the mu- 
sic was flawless. The curtain went down, and then came 
back up to reveal the message: 'And now, the menu." 

Whereupon the letter M walked out to the middle of 
the screen and beckoned to the other letters. E slithered 
on, N was a bit more dainty, and U positively wafted. 
Then, underneath it, five games were offered: 

A find-the-lctter-on-the-keyboard game, in which nest- 
ling birds squawk until their letter is struck. 

An abstract GO-like board game, in which players take 
turns moving tiles and flipping colors. 

A duel with swords, in which you select the moves 
to make against opponents with varying levels of skill. 

A memory building (or, in my case, ego-destroying) 
game in which you try to remember how many Moes, 
Larrys, and Curlys you saw while a single match was lit. 

And the' piece de resistance, a truly magnificent fiags- 
of-the-nations game. 

And my job was to play them like an idiot, 

GET HELP FROM AN IDIOT SAVANT 

You see, once you've programmed your game and it's 
d" doing everything you want it to, it's time to have it tested 

| by Orson Scott Card 
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What you get if 3^011 cross 
a Commodore 64 with a Fterrari. 



\you get the incredible 
rj_ii Indus GT'" disk drive. 

You get brains. You get beauty. 

But, that's not all you get. 

You get a disk drive that can 
kindle 100",, 01 Commodore'-. 
software. Up to 400% faster. 

You get the disk drive with I he 
best service record around. With 
a one year warranty on parts and 
labor to prove it. 



And, you get the only disk drive 
that comes with free software. 
Word processing. Spreadsheet. 
Database manager. Plus, a carry- 
ing case that doubles as an HO 
disk storage file. 

Most of all, you get luxury. 
From the sleek lines of its sound- 
proofed chassis to the respon- 
sive AccuTouch™ controls at the 
Indus Command Post:" From the 



LED display that keeps you in 
control of your Commodore to 
the air-piston operated dusl 
cover that protects your disks 
and drive. 

So, you know what you really 
get if you cross a 
Commodore 64 
with a Ferrari? 
You get the 
best. 




INDUS 



B Indus Systems, 'HH4 Dcerirtg Avenue, Ciiatsiwmli. CA 'J1.1II (8181 882-9600. The Indus CT is .1 pinriud of Indus Systems. Comiiiwlme is ,i 
registered trademark <>i Commodore Business Machines, Inc. Ferrari is a registered trademark ut Ferrari Nurih America, Inc. 
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by somebody else. Somebody who doesn't know any- 
thing about the game. Preferably, somebody who will 
quickly do everything that you didn't think anybody 
would be dumb enough to try. 

We're talking about genuine creative stupidity. 

For instance, in the middle of Got a Match, 1 decided 
I had better go back to the preschool game, which was 
better suited to my mental abilities. I tried to quit pre- 
maturely. Apparently Walter Meyers hadn't counted on 
anybody giving up in frustration. There was no orderly 
exit -at least, when I pressed Q the game didn't Quit, 
and none of the function keys stopped it. either. Nor 
did the RESTORE key -but it did wreck the display. 

What kind of idiot would press the RESTORE key 
during the game? 

Now. Walter Meyers didn't make a mistake. / did. 
But if I had plunked down forty bucks for the game, 
I wouldn't be rational about something like this, 1 
wouldn't say, "Card, you idiot, why did you press the 
RESTORE key?" I'd say. "What kind of game is this 
that the only way you can quit early is to turn off the 
machine?" 

And I'm not only stupid. I'm lazy. I didn't want to have 
to find the numbers 1 through 5 on the keyboard to 
choose my guess for the nation whose flag was displayed. 
I wanted to be able to move a cursor up and down and 
have the computer highlight the choice I'd made. Then 
I'd never have to look down at the keyboard at all. 

There were limes 1 wanted to do things the game didn't 
allow. Times I didn't want to do things the game re- 
quired, I am reporting all those things to Walter Meyers, 

Will he act on them all? Maybe. And maybe he'll look 
at me with pity and wonder how a guy this dumb ever 
got to write a column for a national computer magazine. 

Hear me, O game designers. Treasure your stupid 
friends. If you have no stupid friends, find some. Be- 
cause the idiots who do everything wrong when they're 
testing your game are the biggest help you'll ever get. 

By the time you're through making it so they can do 
all the things they wanted to — and can't do any of the 
things they wish they hadn't -you'll have a game that 
is perfectly polished. 

You could never make that many mistakes on your 
own. You just can't do it without the help of us dolts. 

SELECTING OPTIONS 

Most games use Option Selection at some time dur- 
ing the game. It can be as simple as the One-Player/Two- 
Player option at the beginning, which is never used again 
until the game is over; or ii can he the heart of the game. 

For instance. Waller Meyers' game Flags depended 
entirely on option selection. Each time a new flag was 
displayed, the names of five nations appeared under the 
Hag, numbered I to 5. To select one. you just press a 
number. 

Things got more complex with Flashing Swords. Here, 
there were many options, like Thrust. Parry, Rest. Feint, 
and so forth. Sometimes a modified set of options ap- 



peared, adding Lunge and leaving off some of the others. 
Now to choose an option you press the appropriate key: 
L for Lunge. T for Thrust, and so on. 

The same thing cropped up in an early version of a 
trivia game sent to me by Jan lverson. Possible answers 
were numbered. 

Now. this single-keypress method of option selection 
is a vast improvement over using INPUT statements to 
read whole words. For instance, an early game for the 
Atari was Stales and Capitols. Instead of offering a 
menu, you had to type in the name of the state. Now, 
for a touch typist who is a fanatic about correct spell- 
ing—like mc— that posed no problem. But when my then- 
four-year-old son played the game, he haled typing in 
all those letters. 

What if he spelled Tennessee with only one N? He 
knew the name of the state -he just didn't know how- 
to spell it. So the game wasn't really a geography teach- 
er—it was a spelling exam. 

Worse yet. the programmer tried to "simplify" things 
by using only the first i']\€ letters ol" the state's or cap- 
itol's name in the recognition loop. This meant that the 
word Washiplvxzyut was as "correct" as Washington. 
It also meant that if you wrote North Carolina when the 
state was North Dakota, the program thought you were 
correct. Great educational program! 

So the multiple choice technique, where you are shown 
several options and allowed to choose by pressing a sin- 
gle key, is a great improvement over requiring the play- 
er to type whole words, 

But it still has drawbacks. In numbered menus, where 
you choose option 4 by pressing the 4 key, there is no 
necessary relationship between the answer and what you 
press. If the answer you want is number 4, you have 
to look on the screen to sec what number it is, then look 
down to the keyboard to find the number, and then look 
back to the screen to see how you did. And don't kid 
yourself thai touch typists don't have to do this. There 
arc an awful lot of us hundred-word-per-minuie typists 
who still stop and look for numbers and symbols on the 
top row. That's terra incognita up there. 

The first-letter option solves part of the problem -T 
for Thrust means you only have to think of the word 
Thrust and you know what to press. But it makes things 
even worse for hunt-and-peck typists. We touch typists 
know without thinking where T is on the keyboard - 
but a lot of your players won't know. 

There is an easier way. 

Just put your menu of choices on the screen. Not num- 
bered, but each in its own position on the screen. All 
the options are printed in letters of the same color — ex- 
cept one. That one is in a much brighter color. It is the 
current selection. 

Then you merely move the joystick up or down. The 
former current selection returns to the regular color, and 
the one just above or below it is changed to the high- 
light color. 

You can keep moving from choice to choice, until you 
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teach the one you want. Then you press the button. You 
have made your choice. (It works the same way with 
the keyboard. You use the f5 and r7 keys to move up 
and down, and the space bar to select.) 

Why is this better? Because you want to have as few 
barriers as possible between the data and the decision 
and between the decision and the action. In this ease, 
players don't have to figure out which number or letter 
represents their choice. Their choice is highlighted on 
the screen. And to change from one choice to another, 
they don't have to find a particular key on the keyboard. 
They only have to remember up, down, and action. 

These games were gtxx.1 games even with the relatively 
clumsy control system. But that's what you do when your 
game is finally working -you fine tune it, change it here, 
change it there, to make it simpler to play, and yet more 
fun, more fascinating, more satisfying. 

HIGHLIGHTING WITH PRINT 

Now that I've described how highlighting with a menu 
of options is the best way to handle multiple choice 
games, it's only fair that 1 show you how it's done. 

The screen display is simple. You just put the choices 
in a column. Let's say we're playing "Ambassador." and 
you have to negotiate with the minister of state of Loth- 
aringia. Your king has instructed you to engage Lotha- 
ringia in an alliance against powerful Bavaria. In the 
game, you are given bits of information to help your 
preparation -those appear at the bottom of the screen. 
Your instructions from the king appear at the top of the 
screen. And in the middle arc your options: 

Give gifts 

Make threats 

Offer concessions 

Maneuver 

Stall 

Leave 
Each choice leads to a sub-menu, which appears when 
you have made your choice. For instance, if you choose 
to Offer Concessions, the sub-menu lets you choose 
which concession to make: 

Trivial concessions 

Lower tariffs 

Free trade 

Loans 

Economic aid 

Passive military aid 

Active defensive aid 

Active offensive aid 
Once you have selected from the sub-menu, the oppo- 
nent (or computer) responds, anil you prepare your next 
move. After a certain amount of time, the computer judg- 
es how well you accomplished your objective, and the 
next round begins. 

There are several ways to program the highlighting 
of options. You could keep every option in a string ar- 
ray, and PRINT the highlighted option each time in a 
different color. For instance, let's say that the six ele- 
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ments in the initial menu are held in the array OP$(«J. 
There are two colors. CIS and C2S. CIS is white, and 
C2$ is light blue -the normal color for letters on the 
screen. 

To put the initial menu on the screen, you would get 
the cursor to the beginning of the option menu and use: 

FOR 1=0 TO 5: PRINT C2$0P$(I) :NEXT 

Then, to highlight option 0. the first option, you would 
get the cursor to the right row and use: 

PRINT C1$0P$(0) 

Now option appears in white. 

When the player moved the joystick down to the next 
row. you would first get the cursor to the position of 
the old choice, option 0. and 

PRINT C2$0P$(0) 

That sets the first option back to the regular background 
color. 

Then, get the cursor to the position of the new choice, 
option I . and 

PRINT C1$0P$(1) 

Now the second option, option 1, appears in white. 

This system would work just fine, except that for mul- 
tiple menus you'd have to set up two-element arrays, with 
one element to choose the menu and another to choose 
the option. 

But there's a simpler {though not always faster) way, 
based on the way the Commodore 64 and VIC 20 han- 
dle foreground color. 

HIGHLIGHTING WITH COLOR MEMORY 

As you know, the screen is mapped in "screen mem- 
ory," a portion of memory in which each byte corre- 
sponds with one position on the screen. The bytes of 
memory contain the code number for the particular char- 
acter to be displayed in that particular position on the 
screen. (These are not ASCII codes -they are the screen 
display codes.) 

The first address in screen memory contains the code 
for the character that will appear in the upper left-hand 
corner of the screen. The second address in screen mem- 
ory contains the code for the character that will appear 
just to the right of it. The 22nd address (on the VIC) 
or 40th address (on the 64) contain the code for the right- 
most character on the top line. The next address has the 
code for the leftmost character on the next line down. 
And, of course, the last address in screen memory con- 
tains the code for the character in the lower right-hand 
corner of the screen. 

When you use PRINT statements. BASIC takes the 

Continual on page 79 
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QUESTRON7 A role-playing game so spell-blnding, it suspends reality and conjures up 
an enchanted world whose only hope against the forces of evtt Is you. 

GEMSTONE WARRIORS A lightning- fast action strategy game that will leave you breathless 
with excitement as It takes you through the labyrinths of the netherworld on a noble quest 

Open them up and step through the gateway to your fantasies come true. 
At your local computer/software or game store today. 



QUESTRON" is available on 48K diskette for APPLE" It 
with Applesoft ROM, Apple IK tie, and Ik ($49.95). 
On 40K diskette for ATARI'- home computers ($49,951. 
On 64K diskette for COMMODORE 64~ ($39,951. 
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GEMSTONE WARRIOR" is available on 48K diskette 

lor APPLE"- 1 1 with Applesoft ROM, Apple II+. lie, 

and He ($34.95). 

Also on 64 (V diskette for COMMODORE G4" ($34.95) 



e 1965 by STRATEGIC SIMULATIONS, INC. ah rights reswwd. 

If there are no convenient stores near you, VISA Sc M/C holders To order by mail, send your check to: STRATEGIC SIMULATIONS INC 

can order direct by calling 800-227-1617, ext. 335 {toll free). In 883 Stierlin Road, Bldg, A-200, Mountain View, CA 94043. (California 

California, 800-772-3545. ext. 335, Please specify computer format residents, add 7% sales tax.) AH our games carry a "14-day satisfaction 

and add $2.00 for shipping and handling. or your money back" guarantee, 

WRITE FOR A TREE COLOR CATALOG OF ALL OUR GAMES. 

IP PI F ATARI an(l COMMODORE W aie Itaildmarks ol Apple Com put w, InC Atari. Inc., and Commotion; Electronics, ltd. reaped Iwrly. 
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ADVENTURE GAME 
TUTORIALS 



Disk I 

TEXT ADVENTURES 

ZORK I 

ZORK II 

ZORK III 

ENCHANTER 

SORCEROR 

STARCROSS 

SUSPENDED 

PLANETFALL 

DEADLINE 

WITNESS 

Only $9.99! 



Disk II 
MEGAVENTURES 

ULTIMA II 

ULTIMA III 

ULTIMA IV 

RETURN OF HERACLES 

QUESTRON 

Only $9.99' 



Disk III 
GRAPHIC ADVENTURES 

GOTHMOGS LAIR 

MASK OF THE SUN 

DEATH IN THE CARIBBEAN 

BLADE OF BLACKPOOLE 

CRITICAL MASS 

GRUDS IN SPACE 

ULYSSES AND THE GOLDEN FLEECE 

WIZARD AND THE PRINCESS 

ASYLUM 

_^____ THE INSTITUTE 

Only $9.99 ! 



Have you ever played an Adventure Game where you just plain got stuck and couldn't get any further? 
Well, here's the answer —'Phoenix Red's Adventure Game Tutorials. They can be used as hints or they 
will tell you exactly what to do to get out of all those sticky situations. These Tutorials are written for 
your computer (A Commodore 64) not someone elses, so they work. 



We pay postage and handling. 
A must -have for all adventures. 
Order yours today! 



Send check or Money Order to: 

Phoenix Red Software 

1620 Bay Area Blvd. Suite 703 

Houston, Texas 77058 

Call 713-280-8113 lor more info. 

Reader Service No. 217 



"We put out money where our 
software is, not our copy 
protection " 

— Phoenix neo 
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ot long ago I had sonic hardware problems with 

my 1541 disk drive and. before I realized what 
was causing my difficulties, the directory on a 
l rather valuable floppy was destroyed. 1 took 
the drive to the shop and it was duly repaired, hut in 
the meantime a disk was rendered useless. There is prob- 
ably a corollary to Murphy's Law that states that when 
such a thing happens, the floppy disk destroyed will al- 
ways be the only one you own that you neglected to back 
up. for that is exactly what happened to me. Bui 1 knew 
that most of the data on the floppy should be intact: it 
was only the directory and perhaps one or two tiles thai 
were damaged. If only I could repair the directory, the 
effort that went into writing several gtKid programs could 
be saved. 

The problems involved in such an effort could be div- 
ided into two pans: one. I had to have a way to directly 
modify the directory: and two, 1 had to know what I 
should modify it to be. 

To solve the first problem [ wrote a disk display and 
update utility, which I call DSKDU. and which I shall 
endeavor to describe here. It allows the user to look at 
what is on any given sector on the disk and modify it 
if he so chooses, while bypassing all the standard file 
processing routines. It requires a C-64 or a ViC 20 with 
about 5K expansion and, of course, a 1541 disk drive. 

The second problem was made much easier than it 
might have been by the fact that Commodore provides 
fairly good documentation in the 1541 Disk Drive Us- 
er's Guide on how they laid out their disks. 

The results of this effort have proved to be useful in 
situations beyond the original problem, For example. 
I have occasionally managed to create files with illegal 
names such as "," which cannot be deleted with the 
Scratch command, but which can be killed off with 
DSKDU. On the other hand, it makes it rather easy to 
"un-delete" files that I have accidentally scratched (pro- 
vided I get to them before the system has reused the disk 



space). It has allowed me to !ook at exactly how vari- 
ous types of files arc stored, and I have even used it a 
few times to create data tiles that would have been in- 
convenient to produce with BASIC. 

FLOPPY FORMAT 

If you hope to accomplish anything useful by directly 
modifying disk data, you must have some idea of what 
the results should look like. Commodore conveniently 
provides details of their disk storage layouts in the 1541 
Disk Drive User's Guide, pages 65-68. I see no need to 
repeal all the details here, but the manual is extremely 
terse and some explanation may help you to understand 
what the tables are all about. 

The disk is divided into 35 tracks, numbered from 1 
on the outside to 35 nearest the center. Each track is 
divided into sectors, which are numbered from to 20. 
but not all tracks, have the full 21 sectors-the number 
of sectors per track decreases as one nears the center 
of the disk. (The table on the top of page 65 in your 
User's Guide gives the actual number of sectors on each 
track.) Note that for some mysterious reason Commo- 
dore chose to number tracks beginning with one but sec- 
tors beginning with zero. 

The system maintains a directory on each (loppy in 
which it records what files are on this floppy along with 
certain information about them. The directory always 
begins certain information about them. The directory al- 
ways begins on track 18. sector 1. Each file has one en- 
try in this directory. The first entry begins on the third 
byte of the block and each entry is 30 bytes long with 
two byte gaps between them. 

The first byte of each directory entry contains a code 
indicating whether this file is sequential, program, rel- 
ative, or "user". If this byte is "00" then the entry is not 
currently in use; it is either beyond the largest number 
of files you have ever had on the floppy or the file has 
been deleted. In this case any other information in the 
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entry is irrelevant. 

The must obvious piece of data is the Hie name. This 
is easy to see because it is stored as normal ASCI! text. 
The primary function of the directory is to relate this 
name to the actual data on the disk, which it does by 
also keeping the Hack and sector numbers of the first 
block of the file. 

In this first block, the first two bytes contain the track 
and sector numbers of the second block. The remaining 
254 bytes contain the beginning of the actual data mak- 
ing up the file. The first two bytes of the second block 
contain the track and sector numbers of the third block, 
which contains the track and sector numbers of the fourth 
block, and so on, forming a kind of chain. The "pointer" 
in the last block has a track number of zero. {Remem- 
ber that "real" track numbers begin with one.) Instead 
of a sector number, the second byte will contain the num- 
ber of bytes in this block which actually form part of 
the file. This allows the system to determine exactly 
where the file ends; without such an indication all files 
would have to come in exact multiple of 254 bytes. 

The directory itself is chained together just like a file. 
The first two bytes of its first block contain the track 
and sector numbers of its second block, which points 
to its third block, and so on. It wouldn't do if we had 
to look in the directory to find the directory, so instead 
it simply always begins at track IK sector 1 . By the way, 
this location was presumably chosen because it is in the 



Make your C-64 or VIC versatile with: 



Graphics: 



PLOT VIC" lor VIC-20 
Hi-flc. Graphics Kit 



$19.95 



Features; 

^. Menu Driven with lull screen display 
.' '■ Knyrjoa'd iir ng.rir.pei l iipul (Hjhtpen 

not included), tgHpen smoothing 

akjorsim (nun 3K) 
. 1 Base geotWy (porn. I.ne. e*ipse). 

element -cokx selection. 3-0 



I dserton and postering 
C Screed 10 printer or ptoner (Hi- Res) 



. 4 Easty BansferaDie to dish 

U Functions stand alone 'or use with 

persona! programming (BASIC) 
□ Users guide wm (lustraied graphics 
_ tutorial and technical exptanatans 
U Specify: PLOTVIC (untwpanded VIC) 
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exact center of the disk, and as the directory will nor- 
mally be referenced more than any other data this should 
minimize movement of the read/write heads and there- 
fore of disk delays. 

This system of chaining works tine for sequential (and 
program) files, but relative liles are intended lo be ac- 
cessed randomly: that is, we do not want to have to read 
through all preceding records in order to find the one 
record desired. To enable us to do this. Commodore em- 
ploys what they call "side sectors." The directory entry 
for a relative file contains a track-sector pointer to the 
first side sector in addition lo the pointer for the first 
data block. The first iwo bytes of this first side sector 
block point to the second side sector, which contains a 
pointer to the third, and so on in the now- familiar pat- 
tern. Each side sector contains pointers to up to 120 data 
blocks. Thus, when a program asks for a record, the 
system will first determine which block it is in by com- 
paring the record length to the standard 254 data-bytes 
per block. If it turned out to be in. say. block 67. the 
system would then find the 67 th pointer in the first side 
sector block and retrieve that block directly, without hav- 
ing to follow the chain all the way from the first data 
block. Similarly, if the record turned out to be in block 
700, the system would find the KXJth pointer in the sixth 
side sector block. Now. the whole purpose here is to 
avoid having to follow the pointers to find the desired 
block, so we really don't want to have to follow point- 
ers to get to the needed side sector. Instead, each side 
sector contains pointers to all of the other side sectors. 
The system will always keep the last one used in memory, 
so even if it doesn't need the same one again at least 
it will know where the one it needs is to he found. Each 
file is limited to a maximum of six side sectors, but as 
each can point to 120 data blocks, this allows for a total 
of 720 blocks, more than are actually on a disk. 

The format of user files is completely determined by 
the programmer, so they do not necessarily follow any 
of the above rules. If you wish to use (hem. you're on 
your own. 

USING DSKDU 

The operation of the program is intended to be straight- 
forward. One general point should be made before I de- 
SCribe the individual functions. All numbers are displayed 
in hexadecimal, and all input must also be in hex. While 
this may seem inconvenient at times, most notably when 
entering track and sector numbers, the disk data itself 
is usually most logically presented in hex, and as you 
often get the next track/sector from the data in the cur- 
rent one. it seemed reasonable and consistent to make 
all input and output be in hex. 

Once it is LOADed and RUN. the program ask for 
the first [rack and sector to be displayed. (Remember 
these numbers must be entered in hex.) The program 
will read the disk and display the first sixty- four bytes 
of that block on the screen. At the extreme left of each 
line will be the offset into the block, followed by the 
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An open letter to 

the readers of Ahoy Magazine 

Vincent Kurek 

President: The Ennon Corporation 



My purpose in writing is to <isk 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you. for your computer 
right now. However, there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
availahle to you oilier lhat through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production, While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result! technology is never used to 
its fullest potential. But what's worst 
of all is that these compel it ve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
l hey don't, As a result, the 
infinitesimal amount of technology 
that finally trickles down to you is; 

A. So expensive you are pro- 
hibited from procurring it 

6. Shamefully inferior to the 
real thing 

re member... you can buy high-tech 
consumer goods, but never the 

technology lhat creates it. 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the rcil 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 
This would benefit everyone in the 
long run. 



I have met with little success. 
Apparently, it seems that immediate 
corporate profit is more important 

than sharing technology with Ihe 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home* 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when I say AN-83 is 
the real thing. It is a true "thinking" 
program that receives an initial 
"knowledge base" from a data file 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from that data 
and adds il to its memory. 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base— just 
like your own thinking process! The 
result: il knows considerably more 
than the specific tacts given to it. 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
I in hi less. In ihe right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs to say nothing oi 
classic arcade games, On the other 
hand. AN-8 4 could be one 01 ihe 
most powerful business analysis 
available lo ihe home computer. 



FREE SOFTWARE 



In addition, you will be receiving 
free , Eliza— the most amazing 
conversational A.I. program to date. 
Run this for your friends ,\ri(.\ jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eli/a will answer once and for all 
the question: What can your 
computer doi 

How lo l.earn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive, easy 
to understand commands walk you 
through the source code 



step by step. It's surprisingly simple. 
Even ihe beginner can understand 
the "I low .md Why of A.I." 
A Fantastic Savings 
The real profit lo Ennon 
Corporation will he your 
participation in the future of 
Artificial Intelligence. Therefore, I 
am pleased to say nobody will miss 
this chance because they could not 
afford it, AN-83 is priced lo cover 
just a fraction of its research And 
developmental costs, 

The "Thinking" Program AN-83 is 
just $21.57. What's more, the 
astounding Eliza is yours absolutely 
free . 

I guess it's ohvious lhal 1 want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm bin I 
jusl know you are going to be very 
happy and Impressed thai such 
things could be done with your 
computer. You just won't believe il. 
Please take I his opportunity now. 
Simply fill out your i oupon below 
and mail today. Don't miss out. Its 
such a wonderful future of 
discovery and exc ilemenl that 
awaits you. 

With very besl of wishes, 
Vincent Kurek 



□ 



Please send me the 
"Thinking" Program AN-83 
for only $21.57. 
In addition, I will receive 
absolutely FREE Eliza-the 
most impressive 
conversational Artificial 
Intelligence program to date. 
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values of the data bytes in hex. and then their represen- 
tations as ASCII characters. Any byte which is not ASCII 
for a letter, digit, or one of a few special characters will 
instead be displayed as a period. 

Due to the limitations of the VIC's screen size, the 
program can only display 64 bytes of each 256 byte sec- 
tor at one time. To get the next 64 bytes you must press 
the 13 key.. If you wish to go back to the preceding 64 
bytes you must hit the fl key. If you hit 13 while the 
screen is displaying the last 'page' of the block you will 
be shown the first page, and if you hit fl while the screen 
is displaying the first page yon will be shown the last page 

When you are finished looking at a given sector, you 
may instruct the program to show you another sector 
by pressing the f7 key. It will then ask you for the track 
and sector numbers and proceed as above. If you press 
the f4 key instead the program will dispense with ask- 
ing you for a track and sector and will display the next 
block in the file. 

If you wish to modify a sector, you may use the cur- 
sor control keys to move to the hex digit of the byte you 
wish to change, then press any valid hex digit key (0 
to 9 or A to F). The ASCII on the right will also be 
changed to reflect the new value. You may change any 
number of bytes in a sector and freely (lip pages with 
the fl and 13 while doing so. When you have the sector 
looking the way you want it. press f8 to actually update 
the disk. Until you do this your changes are only kept 
in RAM, so if you make a mistake and want to get back 
to what was in the sector before, you need only press 
17 and reread the same sector (or you could go on to 
some other sector and forget the whole thing). 

When you are through monkeying around with your 
lloppy, press f2 to exit the program. Note: Don't exit 
by pressing RUN/STOP as this will leave the disk chan- 
nels open and terrible things may result. 

If you press any key which the program cannot inter- 
pret, it will Hash a help screen telling what the valid keys 
are and what they do. If you forget which function key 
does what, simply hit anything invalid, such as the re- 
turn key or a question mark, and you will be shown this 
help screen. 

PROGRAMMING NOTES 

A few comments may be in order on some of the less 
comprehensible portions of this program. 

The first requirement in writing it was to be able to 
get data off the disk by track and sector and then put 
it back after it was modified. This could have been dif- 
ficult to do had not Commodore conveniently provided 
the Ul and U2 disk commands. The U I command caus- 
es the drive to read a block specified by a track and sec- 
tor number and load it into a buffer in the drive unit: 
U2 takes data from the buffer and writes it onto the disk. 
The only remaining problem was transferring data be- 
tween the buffer and the computer itself. The normal 
way to read data is with INPUTS or GET#, INPUTS 
was ruled out because it makes too many assumptions 
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about what the data will look like. It drops leading blanks, 
expects to see a carriage return to terminate the input 
stream, and assumes each variable will be terminated 
by a comma or colon. None of this could be expected 
to be true for an arbitrarily chosen block on the disk, 
especially for those containing directory information or 
programs. Thus GET# seemed the logical choice, and 
indeed that was what 1 used in my first version of the 
program. Unfortunately, this ran extremely slowly. Writ- 
ing with PRINTS, while not as bad. was also unaccept- 
ably slow. Therefore. I decided to code the read and 
write routines in machine language. I have entered the 
POKE values in the listing with the corresponding as- 
sembler mnemonics as REMarks beside them as an aid 
to comprehension. Each routine transfers data from the 
buffer directly into or out of the integer array D%. Lines 
1 130 and 3130 are used to get the address of this array 
into locations 828-829 where it can be accessed by the 
ML routines. 

Displaying the block is rather simple. Line 2150 prints 
the hex representations of bytes, four per line, while line 
2160 prints the ASCII values. Some of these cannot be 
printed without messing up the display, most notably the 
color codes and cursor controls, and so are converted 
to periods. 

Control of the cursor for modification is a bit unus- 
ual. Line 2220 computes which byte of the sector we're 
on from page. line, and column. It also computes an ad- 
justed column number (CI) to allow for the space after 
every two hex digits on the display. Line 2225 sets up 
and calls the kernai plot routine. Line 2230 turns on the 
blinking cursor, and line 2250 shuts it off again after 
getting a character and then puts back whatever was in 
that position before (so we don't leave inverse video 
blocks scattered about the screen). 

Whenever a byte is modified, the new value is com- 
puted in lines 2430-2450 by simply running the hex rep- 
resentation through the input routine. This is admitted- 
ly a bit clumsy, but it was short and easy to write and 
it seems to run sufficiently fast. 

FINAL COMMENTS 

Beginning users are cautioned against trying to mod- 
ify the disk directly when they are not sure exactly what 
they arc doing, especially with regard to the directory. 
A good idea might be to practice on a 'junk disk" with 
a few files tossed on it, to see exactly what happens. 

Another caution to bear in mind is this: if you do any- 
thing to change which sectors are "in use." be sure to 
run the verify (V command) to update the Block Allo- 
cation Map, (This is a table which the system keeps on 
track 18, sector 0. in which it records which blocks are 
in use and which are available.) While it is possible to 
alter the BAM yourself. I definitely recommend against 
it. Its format is rather obtruse, making it easy to err, 
and any error can result in data being overwritten- Veri- 
fy is easier and safer. D 

SEE PROGRAM USTISG OS PAGE 105 





A Sequential, Program, and Machine 
Language File Copier for the 64 

By Dave Barron 



T~ he Super Duper file copier utility will allow 
disk users to copy sequential or program tiles 
easily from one disk to another (or onto the 
I same disk). It will also allow you lo rename 

the file. One nice feature is that you can also copy ma- 
chine language programs without having to know end- 
ing and starting addresses, thus making it easy to copy 
ML programs. 

Super Duper demonstrates the use of what I iike to 
describe as hybrid programs. These are programs I enjoy 
writing because I can take advantage of the easy to use 
BASIC language and combine it with the speed and/ or 
necessity of using machine depending upon the appli- 
cation. Further, by using kemal routines I can create 
short effective programs while letting the already built- 
in ML routines do much of the work. 

A brief description of the BASIC program listing fol- 
lows. Also included on this page is a disassembly of the 
actual ML code that is POKEd in hy the BASIC pro- 
gram, for those that wish to follow the ML logic, with 



ML Code Disassembly 



3384 A2 03 

35S6 Vi OS PF 

3589 V> tit FF 

3392 AC X <a 

359S 91 FB 

3597 C8 

3598 8C 3C CO 

3c/il CF> V) 

3603 IX* 'a 

Wfi K6 FC 



UK *$« 
JSR IFFC6 
JSR SFFKA 

UK $033C 
STfc (tFB).Y 

STY $r*33C 

cpr tvt' 

BKB S0E1D 
IK $FC 

ua $fc 

CPX *$9F 

BEq v>m 

IDA W 
BEQ V)tf& 



3617 2') CC FF JSR JFFCC 




36Jf) 6'; 




RTS 




3621 


A2 


03 


LM 


»f*3 


K,:n 


2'J 09 FF 


JSH 


SFFC9 


3616 AC 3C ')3 


U)K $03 3C 


3629 


Bl 


FB 


I. DA 


(JFB).Y 


3631 


OS 


FD 


CFY 


$FD 


3633 


V) 


r* 


BNE 


SOE39 


3635 


V 


FC 


U 1 


iFC 


3637 


E4 


FB 


CM 


$KE 


3639 Pi 


10 


BEQ JOE49 


3641 


C8 




INY 




3642 


8C 3C 03 


STY 


$033C 


3645 


20 D2 FF 


JSR 


IFFB2 


3648 ffi <f> 


CFI 


tVti 


3650 


DO 


E6 


HUE 


I0E2A 


3652 


E6 


FC 


ISC 1FC 


365« 


4C 


2A UK 


JHP 


S1E2A 


3657 


20 


CC FF 


JSfi 


SFFOC 



RTS 



;lom! X rt-g with flic 13 

;JHP to OIKIN kprn»l routine 

iJW to GETIK kernel routine Bud put 

character in A reg 
;lon<i Y reg with counter 
;put character gotten into senary 
;increraent Y reg (the counter) 
;atore the counter into counter taea&rv 
locution 

jcoanare counter to zero 
;U not branch to OEID 
Of counter wan Increment memory 

pointer 

;load X with pointer value 
its file too large to fit into ttveaory 
;lf file too large then branch to 0E21 
; load A reg vith status word 
;if It's d branch to OE05, get another 

character 
jJMP to O.KCHN kernel routine and clear 1/0 

channels 
; return to BASIC 

;Ioad X reg with logical file #3 
;JHP to CIJK0UT kernal routine and open channel 

for output 
Ooad T reg with counter 
;lond A reg with first character from 

memory 
;coopare Y reg to what'fl In pointer 

location 

;if not equal branch to 0139 
;loa<f X reg with what's in pointer 
icompnre what*s in X to what* a in Ft' 
jif it's equal branch to OE49 
; increment Y reg 

;store T reg into counter location 
:JMP to CtlRQUT kernal routine and output 

character to disk 
jcotnpnre Y rag to 

;if not branch to 0E2A a get another 
character 
;lncrenent pointer 
;go back and get another character 
iJNP to CL8CHN kernel routine and clear 1/0 

channels 
; return to BASIC 



brief comments. D 
Line #s Description 

in- 30 Clear the screen and POKI; in the ML code from the dam 
contained in lines 240 through 280. The numbers POKEd 
in by Sine 30 set memory: pointers used for keeping track 
of where we are in memory later on and initialising a coun- 
ter location. 
40- 80 Print onscreen menu. 

90- 1 10 Get user's choice, convert his string response lo a numeric 
value, and jump to appropriate line to handle choice. 

120-150 Allow user to input file name. 

160- 1 SO Open disk file and jump lo ML routine beginning ul 3584, 
winch reads file into computer's memory, 

[90 Sets where end of file just read in exists, reset memory 
allocation, and reinitialize counter. 

200 210 (let user's new filename and allow user to swap disks, 

220-230 Open disk file to write file to and jump to ML routine at 
362 i to write file to disk from computer's memory. 

230 Tells user copy is complete and goes back to sec if he wants 
to copy any more files, 

240-280 The data statements with the actual ML code. 

29(1 End program. 

SEE PROGRAM LISTING ON PAGE 107 
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Have you ever listed a disk directory, only 
to have half of it scroll out of sight before 
you could read it? Have you ever wanted 
— I to load or erase files right from the direc- 
tory without typing all those lengthy commands? Then 
Two-Column Directory is for you. 

As its name implies, Two-Column Directory displays 
the directory in two rows, making it possible to view 
40 file names at once instead of the usual 25 or fewer. 
(Many of your disks probably contain fewer than 40 files, 
so much of the time you'll be able to sec the full direc- 
tory in one shot,} 

The program also allows you to load or erase files 
by putting the cursor on the file name of your choice 
and pressing just one or two keys. 

In addition to working as a stand-alone program, Two- 
Column Directory can be pared down to a subroutine 
for use within your own programs. The subroutine that 
we will describe omits the load and erase features in or- 
der to make the length of the code manageable. The re- 
sulting routine will provide a two-column directory from 
within your program without erasing your program in 
the process. 

In order to display dual rows of director)' information, 
Two-Column Directory had to compromise somewhere. 
The Commodore 64's 40-column screen can't show two 
file names side by side and still include the program types 
and number of blocks occupied by each file. So. Two- 
Column Directory displays the program type as one let- 
ter (P for Program, S for Sequential, and R for Rela- 
tive) and omits the file size. Most of the time, the size 
is not crucial anyway. 

After listing the first 40 file names (or fewer, if that's 
all the disk contains), the program beeps, displays a rec- 
tangular yellow cursor, and shows a command line at 
the bottom of the screen. This line reminds you that ft 
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will continue the listing, 13 will start the listing over 
again, f5 loads a program, and f7 erases one. 

To load or erase, use the cursor control keys to put 
the cursor on top of the file name of your choice. Two- 
Column Directory is set up to load any program file that 
uses the LOAD "filename", 8 syntax. If you press 17 to 
erase, the command line asks you to confirm your in- 
tent before it scratches the file. And, if you accidental- 
ly put the cursor on a blank line before pressing f5 or 
17, the program ends. 

Assuming there are more than 40 files on the disk, 
a press of fl causes Two-Column Directory to erase the 
lefthand column and show the next 20 file names; if still 
more remain, another press of f 1 erases the righthand 
column and shows an additional 20. This procedure con- 
tinues until the full directory has been displayed. 

To trim things down to a manageable subroutine, omit 
lines 70, 140-160, 200, 210, 250, and 260-580. Then 
make these additions or substitutions: 

■25 C0L=1 

■140 IF BY$="" OR BY$=CHR$(34) THEN BY$=C 

HR$(32) 

-165 PRINT BY$;: NEXT 
•205 IF C0L=2 THEN PRINT H0$+ M [ DOWN]": GOT 

110 

•210 PRINT "[DOWN] [12" r, ][RVS0N] PRESS A 
KEY" 

•211 GET J$: IF J$="" THEN 211 
•212 PRINT H0$+"[DOWN][D0WN]"; 
•225 PRINT SP$;SP$;H0$;"[D0WN]": GOTO 110 

You will also need to add either a RETURN or GOTO 
line following line 255 in order to send control back to 
your main program. □ 

SEE PROGRAM LISTING ON PAGE 103 
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Other product lines available! Call for prices. 
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TUSSEY COMPUTER PRODUCTS 

* (formerly Tussey Mountain Software} 

BOX 1006 
STATE COLLEGE, PA 16804 



Rentier Service No. 207 



INNOVATIVE ORGANIZERS, INC. 
For Commodore 64™ & VIC-20 



TM 




WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now, let's examine how these organizers work. There are 3 CRT-Models. 
CRT-1 holds a Monitor or T.V. Set and a VIC20 or 64. All wires & cartridges fit 
neatly under the organizer. 

CRT-2 same as CRT-1, but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6 A MP Fuse). 

CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 
j— -~ P-D-l: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 

Ill A " wires & cartridges fit neatly under the organizer. 

■l.v/a^ Ask about our Power Lock Switch & Power Portable 

Computer Fan & 2 Outlet Surge & Spike Protection. 
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P.O. Box 108. Marklevillc. IN 46056 

Reader Service No. 208 



CRT-1 

CRT-2 
CRT- 3 
P-D-l 



$17.98 
$29.97 
$37.97 
$19.48 



Optional Accessories 

SS-1 Surge & Spike 
Suppressor 

$29.95 

CF-1 Computer Fan 
$29.95 



Plus Shipping 

CALL TOLL FREE 
1-800-233-3645 Ext. 15 
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Replacements and 
Enhancements for 
the 1541 Disk Drive 

73tf ^/flatten J\^eoeltson 



Last month we examined the Indus GT and Commander II drives, 1541 
Physical Exam, and On Track Indicator. This month we conclude with 
Kwik-Load!, 1541 Flash, and Fast Load. 



PART II 



KWIK-LOAD! 



Datamost Inc. 



20660 Nordhoff Street 



Chatsworth, CA 9131 1 



Phone: 818-709-1202 
Price: SI 9.95 



While placing the emphasis on fast 
disk operation, the Kwik-Load! name 
neglects to mention the additional 
features of this low-cost yet power- 
ful disk utility. Written by Mark 
Riley, author of Paint Magic, the 
Kwik-Load! utility disk contains two 
programs. The first .speeds up the 
LOAD time of the 1541 with the 
Commodore 64 by a factor of five. 
The second is a collection of disk 
utilities which simplifies and speeds 
up the most common disk file main- 
tenance operations. 

The Kwik-Load! utility is a short 
machine language routine which 
loads into the SC000 block in the 
Commodore 64. It is linked into the 
C-64 operating system by changing 
the LOAD vector at $330-5331 to 
point at itself, thus diverting all sub- 
sequent LOADs away from the usual 
Kcrnal routines. Although a three to 
one speed benefit is touted by the 
program's purveyors, the actual 
benefit is a combined function of the 
type of disk activity, program length, 
and number of files being accessed. 
Typical speed improvements hovered 
around the five to one mark. For ex- 



ample. Paper Clip, our perennial fa- 
vorite for long LOADs. clocked in 
at less than 15 seconds, down from 
over a minute and a quarter on the 
first try. Note that Kwik-Load! only 
works when loading programs. It has 
no effect on SAVE times. 

As with all RAM based speedup 
utilities, Kwik-Load! will perform 
best with BASIC programs. Most 
autoboot commercial software will 
disconnct the program during the 
boot process. A second version of 
Kwik-Load!, supplied on the disk, 
LOADs into the top of free BASIC 
RAM. In the process, it reduces the 
amount of available memory for 
BASIC programs by one kilobyte. In 
exchange, Commodore's DOS 
wedge can be LOADed in the usual 
fashion. 

KWIK-COPY 

Kwik-Copy, the second part of this 
package, is a comprehensive disk 
utility program. The highlight of the 
package is a high speed disk copy 
routine which will copy an entire disk 
in 4.5 minutes and three passes with 
just a single disk drive. If two drives 
are used, the process takes a mere 
3 minutes 40 seconds (of course the 
need to swap disks back and forth is 
also eliminated). These times were 
obtained with the verify option 
turned off. Turning verify on will 
slow things down a bit, but not very 
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much. The routine aborts on encoun- 
tering a bad sector, so do not wait 
for those disks to start going bad be- 
fore backing up. 

Kwik-Copy automatically accounts 
for a second drive. If you have a 
hardware device nine on one drive, 
turn them both on and boot the pro- 
gram. If both drives are a device 
eight, rum one on and boot up. When 
done, turn on the second drive. 
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Kmk-Load! will automatically sense 
the presence of the additional drive 
and perform a soft change of the de- 
vice number. 

Other utilities included are an easy 
to use sector editor with a rather nice 
two part hex and ASCII display, a 
high speed file copy utility, and a 
BAM directed copy routine. A drive 
speed checking routine is included as 
well. The speed test is completely 
passive as it does not write to the disk 
surface when in operation. 

The file copy routine has a very 
handy feature which the manual fails 
to document properly. When the rou- 
tine prompts for a file name, enter 
the asterisk {*) character as a default. 
The program will automatically dis- 
play each file name and ask if you 
wish to copy it. 

CONCLUSION 

Kwik-Load! is the first of a series 
of competitively priced ($19.95) 
Kwik- Ware! software to be released 
by Datamost. All of these programs 
will incorporate the same high speed 
disk routines. It is a package well 
worth consideration by the budget 
conscious. □ 



1541 FLASH 



Skyles Electric Works 



231 E South Whisman Road 



Mountain View, CA 94041 



Phone: 415-965-1735 



Price: S89.95 



The Skyles Electric Works 1541 
Flash consists of two eight kilobyte 
ROMs with associated hardware and 
a disk drive to computer connecting 
cable. The Flash is actually a re- 
placement for the C-64 Kernel and 
half of the 1541 DOS. In operation. 
the Flash provides approximately a 
three to one speed improvement for 
all disk operations. A mini DOS 
wedge and some C-64 program edit- 
ing support are included as well. 

HARDWARE AND 
INSTALLATION 

The 1541 Flash consists of sever- 
al components. In addition to the two 
ROMs mentioned above, there is a 
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pair of printed circuit adapter boards, 
a cable assembly, and a combination 
connector/switchboard/user port ex- 
tension assembly. 

Installation of the Flash is not for 
everyone. At best it will require dis- 
assembly of both the Commodore 64 
and the 1541 disk drive. At worst, 
considerable adaptive surgery of the 
C-64 circuit board will have to be 
performed. 

On the C-64 side you will have to 
remove the Kernal ROM and replace 
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Startup screen with Flash installed. 




Flash hardware components (see text). 




Flash installed in C~64's user port. 
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Flash installed in 1541 disk drive. 



it with an adapter board which allows 
for the simultaneous installation of 
two ROM chips. This will present lit- 
tle difficulty if your C-64 has its Ker- 
nal ROM in a socket. Many of the 
more recent editions of the C-64 have 
the chips permanently soldered into 
place. Extraction, in this case, is a 
tricky procedure involving the simul- 
taneous unsoldering of a chip with 
24 leads. This has to be done with- 
out damaging cither the circuit board 
or the original Kernal ROM. If your 
C-64 has a soldered-tn Kernal and 
your dealer is not able to perform the 
necessary microsurgery (a likely oc- 
currence), Skyles will do the service 
for S28.50. Given round trip trans- 
portation for the computer, this 
would probably be a three week min- 
imum proposition. If you happen to 
be in northern California with your 
C-64, you may call for an appoint- 
ment for an on the spot replacement. 

A special adapter board replaces 
the original ROM chip. This consists 
of the replacement ROM, a second 
socket to allow reinstallation of the 
original ROM . and a pair of wires 
which go to a second adapter board 
which plugs into the user port. 

The second board serves several 
purposes. It includes a small switch 
which chooses between the two 
ROMs now installed in the C-64. It 
provides a convenient termination 
point for the extra cable which goes 
to the 1541 disk drive. It connects 
up to two of the lines on the CIA port 
and it extends the user port itself for 
use by other accessories. 

As a result, the user port contacts 
are fully exposed to possible electri- 
cal contact with other objects. An in- 
sulated protective cover should have 
been provided with the kit. Also, un- 
like the original C-64 contacts, the 
extension board is not gold plated. 

In the 1541 , one of the operating 
system ROMs has to be pried from 
its socket and replaced. Also, one of 
the 40 pin VIA chips is yanked, a pin 
is bent so it points away from the 
body of the chip, and the chip is rein- 
stalled. A pair of micro chips on the 
supplied cable assembly are con- 
nected to the VIA chip. Routing of 
the cable completes the installation. 



We felt that an adapter board with 
a permanent connection would have 
done away with the need for the mi- 
crochips or any bending of chip 
leads. For our test installation, we 
rigged a 40 pin socket to eliminate 
the lead bending step. 

OPERATION 

Bryce Nesbitt is a name with 
which owners of the Flash will be- 
come intimately familiar. The C-64*s 
turn on greeting message is aug- 
mented to remind you of Bryce's 
handiwork whenever you power up. 
User RAM is unaffected by the Flash. 
The usual 3891 1 bytes free appears. 
The switch on the user port adapter 
allows you to completely restore the 
original configuration of the C-64 by 
electrically switching between the or- 
iginal ROM and the Flash ROM. 
This will allow use of the computer 
with an unmodified disk drive or 
with any user port accessories which 
may require all of the CIA lines. The 
hardware change in the 1541 is ir- 
reversible. A DOS command has 
been added to provide a soft reset of 
the disk drive to permit operation 
with the unmodified C-64. 

In operation, we found the Flash 
to give an approximately three to one 
speed improvement for all disk drive 
operations. This included file oper- 
ations as well as program loads. The 
actual speed benefit varied with the 
particular sequence of operations. 
For example, Easy Script went from 
62 to 30 seconds. Paper Clip from 
78 to 23 seconds, and Standing 
Stones by Electronic Arts from 139 
to 80 seconds. Programs which per- 
form complex operations on multiple 
levels, typically databases, will also 
benefit from the much faster head 
movement which accompanies the 
Flash in the 1541. This high speed 
head movement remains in effect 
even when the Flash is deactivated. 

COMPATIBILITY 

Compatibility with commercial 
software is quite good. All the stan- 
dard Commodore DOS commands 
are recognized. Most copy protected 
software worked without any prob- 
lems, although some programs 



would load only if the Flash was 
turned off. We did come across some 
samples which would not work at all 
with the Flash-equipped disk drive. 
An arrangement for the disk drive 
similar to the C-64, where the ori- 
ginal ROM can be switched back in, 
would have been beneficial. 

SYSTEM 
ENHANCEMENTS 

The Flash includes a tiny DOS 
wedge which simplifies issuing disk 
commands and reading the error 
channel. The commercial at (@) 
symbol replaces the OPEN 15,8,15: 
PRINTS 15, sequence when followed 
by any standard DOS command. The 
character alone reads the error chan- 
nel. The disk directory can he dis- 
played to the screen without affect- 
ing the program in memory. 

The Commodore full screen edi- 
tor is enhanced with several new fea- 
tures. These include rapid cursor 
movement to the bottom of the 
screen, a sixteen character tab, line 
delete, partial screen clear, and a 
program LISTjng pause. 

Several DOS commands have been 
added as well. These deal with the 
block read and write operations and 
are intended for programmers who 
wish to directly utilize the high speed 
Flash routines. 

CONCLUSIONS 

The 1 54 1 Flash does make work- 
ing with the 1541 disk drive far more 
comfortable. The waiting time for 
long files to LOAD, which used to 
be an everlasting tedium, has been 
reduced to a tolerable bore. Shorter 
LOADs which merely involved an 
annoying delay respond with a wel- 
come snappiness. The fairly complex 
installation will deter many users 
from the purchase of a Flash. We do 
suggest you check your C-64 for a 
socketed Kernal ROM before mak- 
ing a final decision. The manual does 
include a detailed installation section, 
witli reasonably clear photographs, 
which should prove adequate for 
anyone with some familiarity with 
the hardware. 

Overall, the Flash was a pleasure 
to work with. It was not without 



some reluctance that we removed it 
from our system after the thirty day 
evaluation period. D 



FAST LOAD 



Epyx 

1043 Kiel Court 
Sunnyvale, CA 94089 
Phone: 418-745-0700 
Prtre: $40.00 



The Epyx Fast Load utility is 
packaged as an eight kilobyte ROM 
in a plug-in cartridge. You just plug 
it in to the cartridge port of the C-64 
and forget about it. The most drama- 
tic improvements in disk drive speed 
are associated with the LOADing of 
long program files, the longer the 
better. For example. Paper Clip nor- 
mally LOADs in one minute and 
eighteen seconds; with Fast Load it 
only takes fifteen seconds -a more 
than five to one speed up. 

The performance is not nearly as 
impressive when you get away from 
straight LOAD operations. For ex- 
ample, Standing Stones from Elec- 
tronic Arts normally boots in two 
minutes and twenty seconds. With 
Fast Load the procedure is reduced 
to one minute and forty seconds, a 
forty percent increase in speed. An- 
other example is Commodore's Easy 
Script, where the original LOAD 
time of one minute and two seconds 
showed a mere five percent improve- 
ment at fifty nine seconds. Of course, 
other cartridge-based software was 
actually slowed up by the amount of 
time it takes to yank Fast Load from 
the expansion port. Finally, working 
from within Easy Script, we found 
no discernible difference in the time 
which it took to read and write text 
files. 

A DOS WEDGE- 
BUILT IN 

Fast Load offers far more than a 
five to one speed increase in program 
LOADs. It is actually several utili- 
ties in one package plus a number of 
DOS convenience features thrown in 
for good measure. When your C-64 
is powered up with the Fast Load 
cartridge in place, the only discern- 
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ible difference is the product name 
along with the usual sign-on message. 
Do not let this lull you into a false 
sense of smug somnambulance. 
Lurking at your fingertips are a 
myriad of hitherto unavailable fea- 
tures just awaiting your beck and call. 
The first and foremost is an instant 
DOS wedge. To get a directory list- 
ing just type "$" (that's SHIFT 4 for 
all you neophytes) and hit RETURN. 
Voila, the directory scrolls by right 



before your eyes. Furthermore, any 
program residing in the computer's 
memory remains totally oblivious to 
the turmoil taking place around it. 
The only drawback was that there 
seemed to be no way to slow down 
or put a halt to the process. Once 
started, the directory seemed most 
determined to scroll by to its final 
conclusion where it profoundly pro- 
claims the disk BLOCKS FREE 
message . 
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Since November 1984, Mr. Nibble has 1 
successfully copied heavily protected 
diskettes for grateful C-64 owners! 



While. oiU&U pAcsnUe, 

TM 
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The next generation in archival 
methods is here today! 

• No better disk copier a! any price 

• Easy-to-use — no complicated 
instructions 

• Totally automatic — no knowledge 
of DOS required 

• You'll LOVE MR. NIBBLE" - if not. 
return within 10 days for full refund 

Own THE FINEST DISK COPIER SYSTEM for 

The C-64 and 1541 d,sk drive - Q^ faj^ , 



FULL CIRCLE SOFTWARE, INC. 

P.O. Box 1373 

Dayton, Ohio 45401 

Phono (513) 223-2102 



Full Circle 

Software 



&ltQ Q/? ,nclLjd «s shipping * handling 
0*Ty-7*S (Ohio rs5idonlsadd6=>sa1es lai) 



10 day return privilege 



Special MSD Version now available! 
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Hitting RUN/STOP and 
RESTORE just made matters worse. 
The screen cleared and the drive 
went off to sulk, apparently on an 
endless binge of disk spinning. Even 
depriving it of its orbiting celluloid 
had no noticeable effect. Despair not; 
the commercial at (@) is available 
for inquiring into the health and well- 
being of the disk drive as it reads the 
DOS error channel. Exercising its 
function brings a response of bliss- 
ful contentment (a display of 00 OK 
00 00) shortly followed by a cessa- 
tion of all rotary motion. 

One other peculiarity commanded 
our attention. The traditional means 
of querying the disk contents, name- 
ly LOAD "$",8, returned a gaggle of 
worthless gibberish. However, the 
slash (/) character, which is now 
available in addition to the tradition- 
al LOAD command, served well in 
the classical sense. The director)' thus 
LOADcd retains its useful meaning. 
Other handy characters are the per- 
cent (%) symbol which replaces the 
binary LOAD 'TILE", 8, 1 sequence 
and the left arrow (-*■ ) which re- 
places the BASIC SAVE. 

Last but not least, the well-known 
LOAD "*",8,1 sequence, used by 
many purveyors of commercial soft- 
ware, is now available by the simul- 
taneous depression of the Commo- 
dore logo and RUN/STOP keys. 

THE DISK TOOL 

In addition to the built-in Wedge, 
Fast Load has a series of utilities re- 
ferred to as the Disk Tool. Upon crit- 
ical analysis, we would consider 
these a full -fledged crowbar. The 
British Pound key is used to access 
the Tool utilities. These are most 
comprehensive. Included are: 

• A single file copy utility which 
is limited to program files. 

• A full disk copy utility which al- 
lows for preformatted as well as post- 
formatted disks. This routine takes 
about ten minutes. 

• A BAM-directed disk copy util- 
ity. This will only copy sectors which 
are marked as allocated on the block 
availability map. 

• A disk sector editor utility. This 
allows you to read any disk sector, 



A Printer For All Reasons 

Search For The Best High Quality Graphic Printer 



If you liavc been looking very long, you have 
probably discovered thai there are Just loo 
many claims and counterclaims In the printer 
market today. There are printers that have 
some of the features you want, but do not have 
others. Some features you probably don't care 
about; others arc vitally Important to you. We 
understand. In fact, not long ago, we were In 
the same position. Deluged by claims and 
counterclaims. Overburdened by rows and 
rows of specifications, we decided to separate 
ail the facts - prove or disprove all the claims 
to our own satisfaction. So wc bought printers. 
We bought samples of all major brands and 
tested them. 

Our Objective Was Simple 

We wanted to lind that printer which had all 
the features you could want and yet be sold 
directly to you at the lowest price. We wanted 
to give our customers the best printer on the 
market today at a bargain price. 

The Results Are In 

The search is over. We hac reduced the Held to 
a single printer that meets all our goals (and 
more). The printer is the GP-550 from 
Seikosha, a division of Seiko. Wc ran this 
printer through our battery of tests and It 
came out shining. This printer can do It all. 
Standard draft printing up to a respectable 
(and honest) 66 characters per second, and 
with a very readable 9 (horizontal) by 8 (ver- 
tical) character matrix. At this rate, you will get 
an average 30 line letter printed In only 28 
seconds. 

TiLQ-' Mode 

One of our highest concerns was about print 
quality and readability. The GP-550 has a print 
mode termed Mcar Letter Quality printing (NLQ 
mode). This Is where the GF-550 outshines all 
the competition. Hands downl The character 
matrix in NLQ mode is a very dense (horizon- 
tal) by 16 (vertlcall. This equates lo 14,400 ad- 
dressable dots per square inch. How we're talk- 
ing quality printing. You can even do graphics 
in the high resolution mode. The results are 
the best we've ever seen. The only other 
printers currently available having resolution 
this high go for $500 and more without the in- 
terface or cable needed to hook up to your 
computer. 

Features That Won't Quit 

With the GP-550 your computer can now print 
40, 4S, 66. 80, 96, or 136 characters per line. 
You can print in ANY of 18 font styles. You not 
only have the standard Pica, [.lit.-. Condensed 
and Italics, but also true Superscripts and 
Subscripts, never again will you have to worry 
about how to print li 2 or X 2 . This fantastic 
machine will do it automatically, through easy 
software commands right from your keyboard. 
All fonts have true descenders. 

One of the fonts we like best is "Proportional" 
because it looks most like typesetting. The 
spacing for thin characters like "I" and "1" arc 
given less space which "tightens" the word 
making reading easier and Taster, This is only 
one example of the careful planning put Into 
the GF-550. 




Do you sometimes want to emphasize a word? 
It's easy, just use bold (double strike) to make 
the words stand out. Or, if you wish to be even 
more emphatic, underl ine the wo rds. Or do 
b oth. You may also wish to headline" a title. 
Lath basic font has a corresponding elongated 
(double-wide) version. You can combine any ol 
these modes to make the variation almost 
endless. Do you wnat to express something 
that you can't do with words? Use graphics with 
your text — even on the same line. 

You can now do virtually any line spacing you 
want. You may select 6, 8, 7'h or 12 lines per 
Inch. PLUS you have variable line ".pacing of 
1,2 lines per Inch to infinity (no space al all) 
and 97 other sollware selectable settings in 
between. You control line spacing on a dot-by- 
dot basis. If you've ever had a letter or other 
document that was Just a few lines too long to 
fit a page, you can see how handy this feature 
is. Simply reduce the line spacing slightly and 
... VOILAI The tetter now fits on one page. 

Forms? Yes! 
Your Letterhead? Of Course! 

Do you print forms? Mo problem. This unit will 
do them all. Any form up to 10 inches wide. 
The tractors are adjustable horn 4'/i to 10 in- 
ches. Yes. you can also use single sheets. Plain 
typing paper, your letterhed, short memo 
forms, anything you choose. Any size under 
10" In width. Multiple coples7 Absolutelyl Put 
forms or individual sheets with carbons (up to 
3 deep), and the last copy will be as readable as 
the first. Spread sheets with many columns? Of 
course! Just go tu condensed mode printing 
and print a lull 136 columns wide. Forget ex 
pensive wide-carriage printers and changing to 
wide carriage paper. You can no do It all on a 
standard B'h" page. 

Consistent Print Quality 

Most printers have a continuous loop ribbon 
cartridge or a single spool ribbon which gives 
nice dark printing when new, but quickly starts 
to fade alter a while. To keep the printers out- 
put looking consistently dark, the ribbons 
must be changed more often than Is healthy 
Tor the pocket bok. The GP 550 solves this 
problem completely by using a replaceable, in- 
expensive Ink cassette which is separately 
replaceable from the actual ribbon. It keeps 
II, :!.!: -r Service No. 190 



the Milium loaded with ink at all times. You only 
replace the ribbon when it truly wears out, not 
when it starts to run low on ink. Just another 
example of the superb engineering applied to 
the GF-550. (When you II nally do wear out your 
ribbon, replacement cost Is only $10.95. Ink 
cassette replacement cost Is only $5.95. both 
postpaid.) 

The Best Part 

When shopping for a quality printer with all 
these features, you could expect to pay around 
S5O0 or more, riot any morel We have done 
our homework. You don't have to worry about 
interfaces or cables. Everything is included. 
You need absolutely nothing else to start prin- 
ting - just add paper. 

no Risk Offer 

We give you a 15-day satisfaction guarantee. If 
you are not completely satisfied for any reason 
wc will refund the full purchase price. A 1 year 
warranty Is included with your printer. 

The Bottom Dollar 

QP-i50A Stmndtnl Parallel ttto CtW« »24H.as 

0P35OCD Commodarr fDlrirl Conned) S2S».9S 

OP-SSOAT Atari iDirect Connect) S259.95 

CPSSOA P Apple II or lit (Direct Connect) 1299.95 

OP-550FC ten peer Computable* ((to Cable). .. $ 259. 95 

GfiSOTI TI99/4AtMrect Connect) $299.95 

Trices * /llMllaWlllty Subject to Change, CAUJ 

•Shipping Is $8,00 - UFS within the continen- 
tal USA. If you are in a hurry, UPS Blue (second 
day air) Is $ 18.00. Canada. Alaska. Mexico are 
$25.00 (air). Other fureign is $60.00 (air), 
California residents add 6% tax. These are 
cash prices - VISA and MC add 3% to total. Wc 
ship the next business day on money orders, 
cashiers' checks, and charge cards. A 14-day 
clearing period is required for checks. 

TO ORDER CALL TOLL FREE 

1-1800) 962-5800 USA 
OR 1-(800| 962-3800 CALIF. 

or send payment to: 

APROPOS TECHNOLOGY 

1071 -A Avenida Acaso 
Camarillo, CA 93010 

Technical Info: 1 (805) 482-3604 

■1984 APROPOS TECHNOLOGY 



modify it, and write it back to any 
.sector on the disk. 

• A file utility which allows for 
locking and unlocking files (prevents 
inadvertant scratching), and renam- 
ing and copying of program files. 

Overall, a rather nice collection of 
utilities to have in one place. 

ML MONITOR 

The Fast Load cartridge includes 
a machine language monitor. This 
program provides a full range of ma- 
chine code disassembly and memory 
display modes, access to the disk di- 
rectory and command channel, and 
both relocating and non-relocating 
binary LOADs. A full array of logi- 
cal and arithmetic operators are 
available for easy calculation of per- 
tinent parameters. Hexadecimal, dec- 
imal, binary, and ASCII conversion 
are built in. About the only thing 
lacking is the customary single- line 
mini assembler, 

A COUPLE OF QUIRKS 

We noticed some additional oddi- 



ties worth passing on to the poten- 
tial user. Executing a call to the C-64 
reset vector (SYS 64738) restores the 
C-64 to the power-up state as if the 
Fast Load can ridge were not there. 
Resetting via a hardware reset but- 
ton brings the Fast Load cartridge 
back online. The Fast Load cartridge 
may also be disabled via a command 
from the built-in Disk Tool utility. 

A GOOD RETURN 

The Fast Load cartridge offers a 
wide array of features in a compact 
package. The operation is surprising- 
ly transparent to all the forms of 
commercial copy protection we have 
looked at. For the few exceptions. 
Fast Load may be totally disabled via 
the built-in soft switch without phys- 
ically removing the cartridge. Over- 
all, it may not be the fastest disk 
speedup utility, but it certainly offers 
a good return for the dollar. □ 

CONCLUSIONS 

Of the three products we looked 
at, the Skyles Flash should provide 



the greatest overall improvement in 
disk handling with the 1541 disk 
drive. This is a direct result of ap- 
plying the speedup routines to all disk 
operations under all operating condi- 
tions. If you can handle the relative- 
ly complex installation, then the 
Flash will significantly cut down on 
time spent waiting for the drive. 

In terms of greatest convenience 
and utility, we place our bets on the 
Epyx Fast Load. The cartridge for- 
mat makes for fast and foolproof in- 
stallation as well as portability. As 
with the Flash, it is instantly avail- 
able on power up. It also has the wid- 
est selection of built-in support util- 
ities. Advanced users will be pleased 
by the instant availability of the pow- 
erful ML monitor. 

The Kwik-Load! package offers a 
good value. The disk copy and back- 
up utilities win the prize for speed. 
Given the low cost, you may just not 
want to pass this one up. □ 
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SOFTWARE- OF THE-[rONTH GLUB^ 

(division 0/ O.C.S.. Inc. ) 

We guarantee you'll never againbuy useless software for 
your personal computer, 

CLUB MEMBERSHIP OFFERS BIG SAVINGS 
«• ♦ NO OBLIGATIONS <• — • 



When you enroll you will 

• Keep only In* eoftwar* thai you can 
uio. Examine Tor a lull 10 daya; If ll'i 
not whit you went, return rt for ■ full 
refund* 

• Receive diacounte up to 30% on your 
eoftwar a chokei 



• Be eligible lot our Bonua Point Plan — 
additional dtecounta applied toward 
purchaaaa. 

• Receive our Informally* monthly newe- 
latlor lull ul hetplul rjpa lor getting th» 
moat from your Commodoia.64. 

• Receive node a ol SpEcj'a! 5 Alas where 
you'd aave aa much » 50% off int. 



Tho Sottware-ol-the-Month Club It Unique, 
No minimum purchases are required — no automallc shipments to you. 



Enroll now and receive absolutely free Public Domain Software. 
Please check LI Cassette G Disk 



GREAT IDEA) I cent loaa. Enroll ma now In tha Software-of-the-Month Club, 
undaratand there la no obligation. Encloatd la my SID mambarahlp fan. 

P Chock □ Money Order I ! Bank Card 



Atfdreaa 

ChyiStittlUp . 

VisaiMCIF 

Signature 



Expiration flair: . 



Cut out and mail today to 



SOFTWARE-OF-THE-MONTH CLUB 

Ohio Computer Services. Inc. 

P.O. Bolt 128723 

Cincinnati. Ohio 45212 
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EPILOGUE 

Not being content to leave well enough alone, we pre- 
sent some last-minute updates on the Skyles Flash and 
the Epyx Fast Load cartridge. This information came 
to us just before we went to press on this issue. 

THE 1541 FLASH 

Skyles has indicated that the latest version of the 
Flash will include a defeat switch for the disk drive as 
well as the computer. This allows the Flash to be com- 
pletely disconnected from the system. The price of the 
new unit will be $99. Present users may upgrade for 
$15 plus $3.50 shipping and handling. Work is nearly 
complete on a two disk version of the Flash which will 
sell for $139.95 ($49.95 for the upgrade). We hope to 
report on this when it comes available. 

FAST LOAD 

A second sample of the Epyx Fast Load cartridge 
appeared unannounced upon our doorstep. Although all 
external indications appeared identical to our first sam- 
ple, we gave it a try. Much to our surprise, we found 
some subtle improvements. This latest revision prop- 
erly handles the LOAD"S",8 command we discussed 
earlier. Epyx is apparently busy swatting bugs as fast 
as they find out about them. This latest version of Fast 
Load brings the count up to three revisions which we 
know about. At this rate, the product should be well 
in hand by the time you read this report. 
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A DISK OPERATING SYSTEM 
ENHANCEMENT UTILITY 



T~ he 1541 (or compatible) disk drive offers sig- 
nificant advantages over cassette as a storage 
medium, random access and speed of access 
being but two such. When you first purchased 

your drive unit you most likely realized a leap in your 
productivity and programming throughput. However, 
you soon came to see that although the 1541 allows you 
to harness some of the power of the Commodore 64. 
it can be cumbersome to use. Many programmers have 
set out to help rectify this by designing various utilities 
that make using a disk drive easier. While these solve 
some of the difficulties of disk drive usage, they create 
another problem: you end up with a disk full of pro- 
grams, one to do single-file copies, another to list the 
directory, another that allows you to 'un scratch" a file, 
and still another to find the load address of a file. Whew! 
Are things really easier now? 

I thought not- so 1 sat down, and after a little head 
scratching came up with Dos Plus. Dos Plus gives you 
a powerful set of tools with which you can better man- 
age your 1541 disk drive. The real power of Dos Plus 
is that you needn't keep an arsenal of utilities on disk 
waiting to be used. Das Plus is in itself just such an ar- 
senal. You need only load it once. It will tuck itself away 
above BASIC memory and wail patiently for your com- 
mands. 

First type in DOS Boot (see page 98) and save it to 
disk. Then, using the Flankspeed program on page 86, 
type in and save DOS Plus. Then type NEW. and load 
and run DOS Bool. 

DOS Boot will also let you change certain default pa- 
rameters of your copy of Dos Plus. More on that later 
in this article. 

You now have an error- free working copy of Dot Plus: 
But what exactly do you have? Let's see. First, list the 
directory by typing '@S\ Dos Plus gives much useful 
information here. The load address of the program is 
listed to the right of your screen in hex and decimal. 
Block count is given, as in other Wedge programs. If 
your disk contains deleted Ides they will be listed as such, 
with a "DEL* signifying the fact. You may abort the list- 
ing of a directory by holding down the RUN/STOP key. 
You may have to hold this key until it 'catches,' because 
the keyboard is polled between accesses to disk. Like- 
wise, the space bar will pause a listing, with any other 
key cancelling the pause function. Again, you will have 
to hold the space bar until the pause takes effect. If you 
wish to list the directory directly to a printer on the serial 
port, hit the f I or keys before you issue the @$ com- 



mand. If your printer answers to device number 4, use 
the fl key. If your printer answers to device number 
5. use the 13 key. Be careful that you use the correct 
key for your printer. If the computer attempts to open 
a channel to a non-existent device, the program will 
'hang.' You can recover from this only by using the 
RUN/STOP-RESTORE combination. If you accidentally 
press fl or f3 or wish to cancel a dump to the printer, 
POKE 923.0 to cancel the dump Hag. The dump to print- 
er function is automatically cancelled after the dump is 
completed or. alternately, if you abort the total listing 
of the directory with the RUN/STOP key. 
Let's try another tool. Type the following: 

@:D18,1 <RETURN> 

This is the SECTOR DUMP/MODIFY command. Mag- 
ically, the first sector of the disk directory is listed to 
the screen. You may use the cursor keys to move the 
cursor to any position within the block. If you make any 
changes to the block, the entire block will be rewritten 
to disk as modified. If you accidentally enter an invalid 
digit, i.e., 0Z or P8, the rewrite feature will abort. You 
can use this command structure to do many things. You 
can unscratch a file by changing the third .byte preced- 
ing the first character of a filename from 00 to 82. The 
unscratch will be successful only if no saves were made 
to disk after the file was scratched. This feature is pri- 
marily useful when you inadvertently scratch a file. Al- 
ternately, you might wish to change a sequential file to 
a program file or a user file to a sequential file. You 
should not make changes concerning relative files. A 
sector, or block, can be dumped directly to your print- 
er in the same manner as described for directory list- 
ings to printer. Again, make use of the fl/fi keys prior 
to issuing the @:D command. After the printer dump 
is complete, the sector will be listed to the screen where 
you may modify it or exit by pressing RETURN. I would 
advise that you practice using the @:D function on an 
expendable disk. This function is very powerful and can 
generate disastrous results if used carelessly. 
This one you've already used: 

@:[BACKARR0W] 'FILENAME', $<START ADDRESS> 
,$<END ADDRESS+1> 

You use this command structure to save a file from other 

Continued on page 61 
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• 170K Disk Drive 5149.00 * 

• Tractor Friction Printer $169.00 

• 13" Hi-Rei Color Monitor $189.00* 

* See Pago 13 



• COMMODORE 64 COMPUTER *13».00 

You pay only $13°. 00 (with ihe Sl 00 5 soltwore 
purchase see below) when you order ihe powerful 
84K COMMODORE 64 COMPUTER' LESS ihe value of 
the SPECIAl SOFTWARE DISCOUNT COUPON we pack 

willi your computer that allows you to SAVE OVER 
$500 off sollware sole pncos'1 With only $100 of 
sovings applied your net computer cost If $39 00' ' 

' 1T0K DISK DRIVE $149.00 

You poy only SI-IV0Q (with Ihe $19. 95 soflwore 
purchase see below) when you order ihe 170K Disk 
Drive! LESS the value of the SPECIAl SOFTWARE 
DISCOUNT COUPON we pack with your disk drive that 
allows you lo SAVE OVER $500 ofl soflwore sole 
prices' 1 Wiih only S100 of sovings applied, your net 
disk drive COSI is S49.00. 

• 13" HI- RES COLOR MONITOR I1M.00 

You pay only S189 00 (with ihe $19 95 soflwore 
purchase see below) when you order this 13" COLOR 
MONITOR with sharper and clearer resolution thon 
ony other color monilors we have tesled' LESS value 
of Ihe SPECIAL SOFTWARE DISCOUNT COUPON we 
pack wilh your monitor Ihot nllows you to save over 
$500 off sofiware sale prices 1 ! Wiih only S10O of 
sovings applied, your net color monitor cost is only 
SB9 00.(16 Colon). 

SO COLUMN BO CPS 
TRACTION/FRICTION PRINTER $164.00 

You poy only SI69 00 when you order the Comslar I F 
deluxe line printer Ihot prints H'ikII lull size, single 
sheol roil or fan fold poper labels elc Impocl dol 
matrix, bidirectional. LESS Ihe value ol the SPECIAL 
SOFTWARE DISCOUNI COUPON we pock with your 
printer thai allows you lo 5AVE OVER SS0O olf 
software sole prices' 1 With only S1O0 ol savings 
applied your net printer cosl is only $69,00. 

10 COLUMN BOARD $74.00 

Now you program 60 COLUMNS on Ihe screen al one 
time' Converts your Commodore 64 lo 90 COLUMNS 
when you plug in ihe 80 COLUMN EXPANSION 
BOARD!! PLUS 4 sloi expander' Can use wilh most 
sofiware 

SO COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR $39.00 

This EXECUTIVE WORD PROCESSOR is the linest 

available for Ihe COMMODORE 64 computer' The 
ULTIMATE FOR PROFESSIOMAL Word Processing. 
DISPLAYS 40 or 80 COLUMNS IN COLOR or black and 
white 1 Stmple to operate, powerful 'en! editing with 
ISO WORD DICTIONARY complete cursor and 
invert-delete key controls line end paragraph 
insertion oulomolic delelion centering, margin 
seitings and oulpul to all printers! Includes a 
powerful mail merge 
List $99 00 SALE m.00 Coupon $29 95 
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SUPER AUTO com 
DIAL MODEM 64 

(Best communications package in USA) 

$CAOO 



SPECIAL SOFTWARE COUPON 



peck o SPECIAL SOFTWARE DlSKCOUhnl 
ICOUPON with every COMMODORE 6fl| 
■COMPUTER. DISK DRIVE. PRINTER, 
■MONITOR we sell! This coupon allows you tol 
■SAVE OVER '.100 OFF SALE PRICES!! 



(Examples) 

PROFESSIONAL SOFTWARE 

COMMODORE 64 



Nome 


Lltl 


Sat. 


Coupon 


EMeruWe Word ProCtittOI 


iii oo 


$39.00 


$39 95 


E*etu1 ve Dale Hose 


S69 00 


SJ9 00 


S19 95 


30 000 Word Die Mono'* 


52< 9$ 


SI4 9S 


510 00 


Elrrcrrgmr Spread Sheet 


$59 9$ 


549 00 


S39 00 


Accounting Pock 


S49 00 


$39. 00 


529.00 


Praclicak 


$59 95 


534 95 


SJ9 95 


PipqrOT>mori RefpreriCL' 

Gunle 
Programmers Helper 


$30 95 


516 95 


$13 50 


S59 95 


$39.95 


$19 9$ 


(bisk] 








SO Column Screen (Disk} 


iii) 15 


$39 9 5 


$19 95 


Disk Filer (by flip N File) 


:." •■ 


$11 95 


513 95 


Dl.Iu.i tope Cassette 


sa» oo 


$14 35 


534 95 


Pro Jay Stick 


519 95 


$12 95 


SI0 00 


Light fen 


539 95 


514 95 


5 9 95 


Dusi Cover 


s e 95 


S 6 95 


S 4 60 


Simon s Basic 


«9 '5 


533 95 


519 95 


Pitsior II Epy* 


S39.95 


524 1'. 


519 95 


SupDr Graphics Expandor 


531 15 


533.95 


519,95 


Music Call 1 


55") 15 


$39 9 5 


121 95 


Flltwfiter 


559 0J 


S39 95 


$71 95 



(See over 100 coupon item a in our catalog ft 

Writs or call (or 
Sample SPECIAL SOFTWARE COUPON! I 
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PROFESSIONAL BUSINESS SOFTWARE 


The Cadillac ol Buiinoit 


Programi 


for Commodore 64 Computon 




It.m 


Lltt 


' lain 


Coupon 


llwtnre'y rVloiiaaernent 


$79 95 


$39 95 


$34 95 


Account fteceivnrjte 


$79 95 


529.95 


$34 95 


Accoun-s Payable 


579,95 


S39.95 


524 95 


Payroll 


579 95 


529 95 


S3i 95 


General Ledger 


S79 95 


S29 95 


521 95 



The S19.95 Software Purchase Options 



1. 31 Prcgrnm Solium Pock (tope or disk I 

2. Oil Dorr oris Slro'egy Board Gamr* 
I Disk [ii„.c 

1 HTS Gomes IdisM 

5 Poga Ine {icjpw ur disk} 



LIST 

$39 95 
$19 95 
S39 95 
139 95 

529.95 



5AL 

lit, 
lit. 
til. 
It*, 
119 




* Computer Learning Pad $37.95 

* New Voice Synthesizer 549.00 

* 12" Green or Amber Monitor 579,15 

* 12" Daisy Wheel Printer 5199.00 



SUPER AUTO DIAL MODEM $59.00 

Easy to use. Jusl plug into your Commodore 64 
computer ond you're ready to transmit and receive 
messages. Easier io use ihon dialing your lelephone 
(usl push one key on your computer' Includes 
exclusive easy to use program lor up ond down 
loading lo printer and disk drives 
List $129.00 SMt 119. 00 

NEW COMPUTER LEARNING PAD $37.M 

Wakes other graphics tablets obsolete. This new TICK 
SKETCH LEARNING PAD allows you to draw on your 

T.V. or Monilor ond then you con print whatever you 
draw on ihe screen on your printers FANTASTIC!' 1 
List $79 95 SAlt 137.9$ 

NEW VOICE STNTHESIIER $4«.00 

For Com- 64 or VIO20 computers Jusl plug rl in and 
you can program words ond sentences, adjust volume 
ond pilch make talking odventure games, sound 
octiori games ond customized lalktesl' fOfi ONLY 
$19 95 you con add TEXT TO SPEECH just lype o woid 
and hear your computer talk ADD SOUND TO 

Zork SCOTT ADAMS AND AARDVARK ADVENTURE 
GAMES' ' {Disk or tope.) 

12" GREEN OR AMBER MONITOR S7M5 

Your choice of green or amber screen monitor, top 
quality So columns x 24 Tines easy to rood, omi 
glare' PLUS $9 95 lor connecting cable Com 64 or 
VIC 20. 

II* 1 DAISY WHEEL PRINTER $119.00 

"JUKI" Superb letler quality daisy wheel printer 12 
extra lorge carriage, up lo 12 CPS bi-directional 
printing drop in easselto ribbon Centronics parallel 
or R5232 serial port bull! in! (Specify) 
lisl S799 00 SALE 1199.00 

CARDCOG • INTERFACE $59.00 
For Commodore 64" and Vic 20compu«ers Lets you use 
other primers with Centronics interlaces. This 
interlace lets the prinler ocl like a Commodore printer 
including printing the Commodore graphics [Dot 
matrix wlh graphic capobility primers). 
ListSIOv.QOSAUlH.OO 

PROTECTO WARRANTY 

All Protecto's products carry a minimum 90 day 
warranty. Therefore il onylhirig fail; wilhin 90 
doys from ihe date of purchase, you simply 
send your product to us vio United Porcel 
Service prepaid. Wo will IMMEDIATELY send 
you a replacement al no charge via United 
Parcel Service prepaid. This warranty proves 
once agoin I hat We lave Our Customers. 



* LOWEST PRICES • 15 0AY FREE TRIAL 

• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL 



PHONE ORDERS 

8 a.m. 8 p.m. Weekdays 
9 a.m. - 12 noon Saturdays 



• 90 DAY FREE REPLACEMENT WARRANTY 
• OVER 500 PROGRAMS • FREE CATALOGS 



Add 510.00 for shipping, handling and insuronce. Illinois residents 
please add 6'. tax. Add S20.00 lor CANADA PUERTO RICO. HAWAII, 
ALA5KA, APO-FPO orders. Canadian orders must be in U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Cashiers Check Money Order or Personal Check. Allow 14 
doys for delivery 2 lo 7 doys lor phone orders. I day enpra.s mail I 
VISA MASTERCARD COD No C.O.O to Conadc . APO FPO 



We Love Our Customers 

Box 550. Borrington. Illinois 60010 



312/382-5244 to order 



Reader Servlcs Ma. Ill 



NEW 128K —MEGA BYTE DUAL DISK DRIVE-80 COLUMN 

COMPUTER SYSTEM SALE! 

HOME • BUSINESS • WORD PROCESSING 

S3 
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LOOKATALL YOU GET FOR ONLY $ 79 5 • 



B128 COMMODORE 1 28K 80 COLUMN COMPUTER 
(2) 4023 - 1 00 CPS - 80 COLUMN BIDIRECTIONAL PRINTER 
g) 8050 DUAL DISK DRIVE (over 1 million bytes) 
@ 12" HI RESOLUTION 80 COLUMN MONITOR 

• BOX OF 10 LORAN LIFETIME GUARANTEED DISKS 

• MOO SHEETS FANFOLD PAPER 
. ALL CABLES NEEDED FOR INTERFACING 

TOTAL LIST PRICE $3717.95 



LIST PRICE 
$ 995.00 
499.00 
1795.00 
249.00 
49.95 
19.95 
102.05 




PLUS YOU CAN ORDER THESE BUSINESS PROGRAMS AT SALE PRICES 



Programmers 

f-N.-f < T crl CO 

Guide 

List S29.95 

Sale $34.45 



Professional 80 Column 
Word Processor 
Professional Datu Base 
Accounts Receivable 
Accounts Payable 



LIST 

SI 49.95 
SI 49.95 
S149.95 
S149.95 



SALE 

$99.00 

$99.00 

$94.00 
$99.00 



SYSTEM 
PRICE' 

$49.00 
540.00 



Payroll 

Inventory 
General Ledger 
Financial Spread Sheet 
Order Entry 



LIST 
SI 49.95 
$149.95 
SI49.95 
$149.95 
S149.95 



SALE 
394.00 
$99.00 
$99.00 
$99.00 
$99.00 



' When Bought 

with B128 

Computer 

System. 



•/.• PRINTER REPLACEMENT OPTIONS 

(replace the 4023 with the following printers ol these 
sale prices. Interface Included) 



Olympia Executive Letter Quality Printer 
Comstar Hi-Speed 160 CPS 1 5 'A " Business Printer 
Telecommunications Deluxe Modem Package 
IEEE to Centronics Parallel Printer Interface 



LIST 
$699.00 
S779.00 
SI 99. 00 
$179.00 



SALE 

$169.00 
$459.00 
$134.00 
$134.00 



15 DAY FREE TRIAL. We give you 15 days to try out this SUPER SYSTEM PACKAGE! ! If it doesn't meet your expectations, just send it back 
to us prepaid and we will refund your purchase price! ! 

40 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the SUPER SYSTEM PACKAGE equipment or programs toil due to foully 
workmanship or material we will roploce it IMMEDIATELY with no service charge! ! 



Add $50.00 for shipping and handling!! 

WE DO NOT SHIP THIS SYSTEM TO FOREIGN COUNTRIES, 

CANADA, PUERTO RICA, ALASKA, OR HAWAII, 

Enclose Cashiers Check, Money Order or Persona! Chock. Allow 14 days for 

delivery. 7 10 7 days for phone ardor*. I day express mad! We accept Visa 

9nd MaslerCard. We ship CO. P. to conllrinnlol U.S. addresses only. 



WE LOVE OU« CUSTOMERS 



ENTERPRIZES 

BOX 550, BARRINQTON. ILLINOIS 80010 
Phoni 312/382 5244 to ordor 



Header Service No. 222 



FANTASTIC PRINTER 
$ 24 95 SALES! $ 24 95 

Commodore 64 — VIC 20 A fori 

ft 40 And 80 Column Printers* Up To 100 Characters Per Second A Full Graphics Capability 
ft Upper And Lower Ca se » Advanced Thermal Technology For Quiet Operation 




3150 Alphacom 81-100 CPS 80 Column Printer 

Now you can have a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter. 
With the intelligent interfaces (sold below) you 
can do Ascii graphics as well as Atari or 
Commodore graphics. Plus you can do 
underlining and expanded modes. Print out 
pictures, program listings, word processing 
pages, etc. Perfect for the student or 
homeowner. List $199.00. Sale $39,95. 

80 Column Extra Paper LIST SALE 

3153 40 Meter Rolls Blue $14.95 $3,95 

3154 40 Meter Rolls Black $19.95 54.95 

3155 25 Meter Rolls Blue (2 per pkg.) $19.95 $7.95 

3156 25 Meter Rolls Black (2 per pkg.) $19.95 $8^95 



3100 Alphacom 42-80 CPS 40 Column Printer 

Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with a roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List $99.00 
Sale $24.95. 

40 Column Extra Paper LIST SALE 

3103 25 Meter Rolls Blue $9,95 $3.00 

3104 40 Meter Rolls Blue $14.95 $3.95 

3105 25 Meter Rolls Black (1 per pkg.) $12.95 S3. 95 

3106 25 Meter Rolls Blue (2 per pkg.) $19.95 55.95 

3107 25 Meter Rolls Black (2 per pkg.) $19 95 55.95 




3T01 Intelligent Commodore Interface — Allows you to 
hook the 40 or 80 column printer to the Commodore 64. do 
program listings, allows software screen dumps, etc. 
Includes Commodore graphics and reverse characters. 
(Specify 40 or 80 Column) List S59.95. 
40 Column Sale $9.95. 80 Column Sale 514.95. 



Add $10.00 for shipping, handling and insurance. Illinois residenls 
please add 6% lax. Add 520 00 for CANADA. PUERTO RICO. HAWAII. 
ALASKA, AFO-FPO orders, Canadion orders musl be in U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Check. Money Order or Personal Check. Allow U 
doys for delivery, 2 to 7 doys lor phone orders. 1 day express mail! 
VISA - MASTERCARD - COD. NoC.O.D. ra Canada. APO-FPO 



3102 Intelligent Atari Interface — Allows you to hook 
the 40 or 80 column printer to the Atari computer, do 
program listings, allows software screen dumps, etc. 
Includes Atari graphics and reverse characters. (Specify 40 
or 80 Column) List $59.95. 
40 Column Sale $9.95. 80 Column Sale $14.95. 



We Love Our Customers 

Box 550, Barringlon, Illinois 60010 

312/382-5244 to order 
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FANTASTIC COMPUTER PRINTER SALE!!! 



COM-STAR T/F 

Tractor 
Friction 
Printer 



only 



** 



• Lowest Priced, Best Quality, Tractor-Friction Printers in the U.S.A. 
Fast 80-120-160 Characters Per Second • 40, 46, 66, 60, 96, 132 Characters Per Line Spacing 
> Word Processing • Print Labels. Letters, Graphs and Tables • List Your Programs 
Print Out Data from Modem Services * "The Most Important Accessory lor Your Computer" 



••DELUXE COMSTAR T/F 
80 CPS Printer $169.00 

This COMSTAR T/F (Tractor Friction) 
PRINTER is exceptionally versatile. It 
prints S 1 ^" x 11" standard size single sheet 
stationery or continuous feed computer 
paper. Bi-direetional, impact dot matrix, 
80 CPS. 224 characters. (Centronics 
Parallel Interface). 

Premium Quality VM4W CPS 
10XCOMSTARPLLS+ Printer $199 
The COM-STAR PLUS + gives you all the 
features of the COMSTAR T/F PRINTER 
plus a 10" carriage, 120-140 CPS, 9 x 9 dot 
matrix with double strike capability for 18 
x 18 dot matrix (near letter quality), high 
resolution bit image (120 x 114 dot matrix ) , 
underlining, back spacing, true lower 
descenders with super & subscripts, prints 
standard, italic, block graphics & special 
characters. It gives you print quality and 
features found on printers costing twice as 
much!! (Centronics Parallel Interface) 
(Better than Epson FX80). RATED 
"BEST BUY" BY CONSUMERS DIGEST 
BUYERS GUIDE, JANUARY 1985! List 
S499. 00. SaleS 199.00. 



Premium Quality 120-140 CPS 
151/jX COMSTAR PLUS + 

Business Printer $319.00 
Has all the features of the 10" COM-STAR 
PLUS + PRINTER plus 16^" carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 
100). List $598. Sale $319.00. 

Superior Quality 

15>/i" COM-STAR PLUS + H.S. 

High Speed 180-180 CPS 

Business Printer $449.00 

15V4" Carriage and more powerful 
electronic components to handle larger 
ledger business forms! (Serial Centronics 
Parallel Interface ) . List $799. Sale S449. 

12" DAISY WHEEL 

PRINTER $199.00 
"JUKI" Superb letter quality daisy wheel 
printer, 12" extra large carriage, up to 
12CPS bi-directional printing, drop-in 
cassette ribbon, (90 day warranty) 
Centronics parallel or RS232 serial port 
built in! (Specify). List S299.00. Sale 
$19(1.0(1, 



Superior Quality 

10" COM-STAR + U.S. 

HIGH SPEED 160-180 CPS 

Business Printer $349.00 

This Super Uh;li Speed Com -Star + 
Business Printer has all the features of the 
10" COM-STAR + PRINTER with HIGH 
SPEED BUSINESS PRINTING 160-180 
CPS. 100% duty cycle, 8K Buffer, diverse 
character fonts, special symbols and true 
descenders, vertical and horizontal tabs. A 
RED HOT BUSINESS PRINTER at an 
unbelievable low price (Serial or 
Centronics Parallel Interface). List 
$699.00. Sale $349.00. 

Printer/Typewriter 
Combination $249.00 

"JUKI" Superb letter quality, daisy wheel 
printer/typewriter combination. Two 
machines In one — Just a flick of the 
switch. 12" extra large carriage, 
typewriter keyboard, automatic margin 
control and relocate key drop In cassette 
ribbon! (90 day warranty) Centronics 
parallel or RS232 serial port built in 
(Specify). List $399.00. $349.09. 



• 15 Day Free Trial — 1 Year Immediate Replacement Warranty 



•PARALLEL INTERFACES- 



For VIC-20and COM-64 - $49.00. Commodore B-1M - $139.00. Apple - $79.00. Atari - $79.00. 



Add S14 50IOI thiopino hondlinfl and Iniuronc* llhnoii randami 
pl.oi**>ddt% iom Add $29 00 tor CANADA CUE* to P. ICO. HAWAII 
AtASKA APOfPO Ofdtri Conadion ordart mull bo in U.J dollon. 
WE DO NOt EXP8P.T TO OTHIH COUNTRIES 

Entlato Caihion Ch.eli Monor Ordor or ^arionol Chock, Allow M 
da f t (or dolxory 2 'o 7 day i (or phono ordar» 1 day amproit mail 
VISA-MASTER CARD-We Snip C QD lo U S Accesses On'y 



We Love Our Customers 

Box 550, Harrington, Illinois 60010 

312/382-5244 to order 



com,star plus* « BCDEFC !i!i"^£?2-2E , 

Print Example 1WSPEFGH1 JKLHNDPQWSTUVWXYZ 13- 



ITUVWXYZ 
>7B90 



Render Service No. 22a 



J I SALE $ 1 49 . a 

Premium Quality Floppy Disks 





Box of 10 with hub rings, sleeves and labels 

Famous Brand FUJI Floppy Disks for those who care about keeping their data. 

List $39.95 

Single Sided — Double Density Cfllp $1d 00 

for Commodore 64, Atari, Apple *"l^ T 111 f V 

* $12.95 & & Flip-N-File ft £ * $12.95 

Data-Case 

Floppy Disk Filer 

Everyone Needs a Floppy Disk Secretary 

Facts; 

• Dust and Dirt particles can hurt your disks 

• Most disks go bad due to mishandling in storage 

• Proper filing of your disk collection will reduce 
unnecessary handling of your disks 

The Floppy Disk Filer is on inexpensive hard plastic Fliptop case that will allow for easy filing, and protect 
your disks from dust, smoke, and dirt. Plus, the Floppy Disk Filer will keep all your disks out of unwonted 
hands and in one place where you can easily find them. (Holds Over 50 Disks) 




List $24.95 



Introductory Sale Price $14.95 



* Coupon $ I '2.95 



Add SO 00 for shipping handling and insurance Illinois residents 
pleoie odd 6', to. Add S6.00 (or CANADA PUERTO RICO HAWAII 
ALASKA AFO-FPO order* Canadian orders must be in U S dollar* 
WE DO NOT EXPORI TO OTHER COUNTRIES 

Encloie Cashiers Check. Money Order or Personol Check Allow I a 
days lor deliver^ 7 to 7 doys lor phone orders I day express moil 1 

VISA MASTERCARD COD 
NoCOD to Canada APO FPO 



We Love Our Customers 

Box 550, Borrington, Illinois 60010 

312/382-5244 to order 
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Commodore 64 

MODEM 




List $129.95 



FOR CHILDREN-ADULTS* BUSINESS 



Complete Auto Dial 
Telecommunications Package 

"The only telecommunications package you will ever need, " 

(Exclusive Easy To Use Features) 

^*-*~ Total -*~*~- 
Telecommunications 

• 300 Baud Modem • Auto Dial • Auto Answer • Upload & Download 
• Membership in 52 Database Services (UPI News, etc.) 

Reach Out and Access Someone 





• Popular Games 



• Educational courses 

• Financial Information 

• Banking at Home 

The Total Telecommonications Package offers you all this plus ... 

• Auto Log-on • Stores on Disk Downloaded Files 



• News Updates and Information 

• Electronic Shopping 

• Research and Reference Materials 



• Dialing from Keyboard 

• On-line Clock 

• Capture and Display High Resolution Characters 

• Download Text, Program or Data Files 



• Reads Files from Disk and Uploads Text or Program Files 

• Select Any Protocol (access almost any computer or modem) 

• Plus Much, Much More 



List $129.95 



Special Low-Low Price 



59 
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We are so sure this is the only telecommunications package you will need we will give you 15 days Free Trial. 



Add 53.00 lor shipping, handling and insurance. Illinois residents 
please add 6*, lax. Add S6.00 for CANADA. PUERTO RICO. HAWAII. 
AlASKA APO-FPO orders. Canadion orders must be in US dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES. EXCEPT CANADA, 
Enclose Cashiers Check. Money Order or Personal Chock Allow 14 
days for delivery. 2 !o 7 days lor phone orders, ] day express mail! 
VISA - MASTER CARD - COD 

No COD to Conoda. APO FPO. 



We Love Our Customers 

Box 550, Bamngton, Illinois 60010 

312/382-5244 to order 
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7547 FLASH! - 

THE CRITICS SPEAK OUT 



This advertisement has been written by indepen- 
dent reviewers of Commodore computer products. 
We thank them for their frankness and the high marks 
awarded to the Skyles Electric Works 1541 FLASH!. 



The Reviewers Comment 



"Tired of that slow disk drive? The solution is here, 
and it costs about S90. Considering what it does, the 
price is a bargain! It speeds up your 1541 disk drive 
200%-300%. And if you write your own software 
specially for the FLASH!, you can achieve speed 
increases of 600%! 

The 1541 FLASH! is the best! It's better than 
KWIK LOAD.'" And better than 1541 Express.'" 

Does it sound too good to be true? Do you suspect 
there must be some drawback that I haven't men- 
tioned? Well . . . There is one. You have to open up 
your keyboard and 1541 drive and do a little work 
inside them. You need to replace a couple of chips 
with new ones provided by the FLASH!. And an extra 
cable will run from your keyboard's user port to your 
1541 drive. But the installation is explained in 
complete detail with pictures. It's a simple operation 
that will take under 30 minutes. And in return you 
will have a disk drive that literally races along! 

The biggest complaint with the Commodore 64 is 
the slow disk drive. No more! You will never be 
willing to go back after having used the 1541 FLASH!. 
It really spoils you! It's even faster than a parallel 
drive with an IEEE interface! Don't be afraid of the 
installation. It's realty simple. And if you prefer not to 
do it yourself, your local user's group probably has 
people with the ability to install it for you. You'll be 
glad you did ! ^ Nor , hwesl Users q^ ja)L Jm 

"A tiny wedge is included . , .you simply SYS65526 
to enable it. Those who enjoy using the wedge as part 
of their normal computer will like this feature. 

The utilities added by FLASH! include single, 
double and simultaneous keystroke implementation 
of such niceties as delete line, escape quote, cursor to 
bottom of screen, 16 character tab, and return without 
line execution. 



My children have played some of their favorite 
games and used utilities or educational software 
without any problems whatsoever, using the 1541 
FLASH! All in all, this device will save the purchaser 
much of the frustration normally experienced, as well 
as the time required in normal disk drive-computer 
interactions. With the above noted exception, I'm 
very pleased with its operation, and won't hesitate to 
recommend it to those who would like faster loads 
and saves or want additional flexibility and power at a 
moderate price." run, May 1985 

"Having used 1541 FLASH! for several days, 
already I can't bear to go back to a slow 1541 , It's 
amazing how quickly you can get spoiled by a luxury 
like this. More than a few editors here have cast covet- 
ous eyes on the upgraded 64/1541. And the price is 
reasonable for such a dramatic enhancement. After 
reading the installation description above, you can 
decide if you're up to opening your equipment, yank- 
ing out chips, and enjoying a 300% speedup," 

Computers Gazette, fan. 19S5 



Commercial Details 

1541 FLASH! '.'.'. $ 89.95* 

1541 FLASH! with Disk Switchboard 99.00* 

1541 FLASH! for Two Drives 139.95* 

1541 FLASH! for SX-64 99.95* 

1541 FLASH! for MSD Drives tba* 

•Mail order please add S3. 50 for shipping and handling, 
California residents add sales tax as required. 

Available from your local Commodore 
dealer or call 1-800-227-9998 

(n) Skyles Electric Works 

)rj 23 1 E South Whisman Road 
Mountain View, CA 94041 
CcP 1-(415)965-1735 

15-11 FLASH 1 lia trademark or Skyto Electric Works 
Commodore M is .i trademark uf Commodore. 
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The Binary, Hexadecimal, and Decimal Notation Systems 

By Mark Andrews 




hree kinds of number systems are commonly 
used in assembly language programming. 
They arc: 
(I) Decimal numbers, based on the value 
10 and written using the Arabic numerals through 9. 

(2) Binary numbers . based on the value 2 and usnaly 
written using the Arabic numerals and 1 . 

(3) Hexadecimal numbers, based on the value 16 and 
customarily written using the Arabic numbers through 
9, plus the letters A through F. The digits I through 9 
are used just as in conventional decimal notation, and 
the letters A through F as single-unit symbols tor the 
values 10 through 15. 

Decimal numbers are what most of us learned in school 
so not much will be said about them. Instead, we'll fo- 
cus on the binary and hexadecimal number systems. Let's 
start with binary numbers. 

The ones and zeroes that make up binary numbers arc 
known as bits. A series of four bits is called a nibble 
(or nybble), a series of eight bits is called a byte, and 
a scries of 16 bits is called a word. 

PENGUIN MATH 

The best way to explain the principles of the binary 
system is with something I call Penguin Math. Penguin 
Math is the number system that penguins would probab- 
ly use if penguins could use numbers. 

Imagine that you're a penguin. You wouldn't have 10 
lingers on each hand, so thcre'd be no way you could 
count on your fingers. You'd have just two flippers, and 
if you wanted to count on something, you'd have to count 
on them. 

Suppose that you're a very bright penguin, and did 
learn to count on your flippers. You wouldn't be able 
to count to 10. But you would be able to count to 2. 

Now suppose that you're the smartest penguin on Pen- 
guin Island. If you were that sharp, you might figure 
out how to use your flippers to count past 2. Here's one 
way you could do that. 

Instead of counting on your flippers the same way hu- 
mans count on their fingers, you could decide to equate 
a raised right flipper to 1, and a raised left flipper to 2. 



Then you could let two raised flippers represent the 
value 3. 

Now suppose you were the Albert Einstein of Pen- 
guin Island, and devised a new mathematical system to 
express in writing what you had done. 

You could use a to represent an un raised flipper, 
and a 1 to represent a raised one. And then you could 
scratch these equations in the ice: 

00 = 

01 = 1 

10 = 2 

11 = 3 



AHA! FEET, TOO! 

Those arc, of course, binary numbers. And they clear- 
ly show that if you were a really smart penguin, you 
could use two flippers to express the values through 
3. That's a clear improvement over the two values that 
can be represented with more traditional flipper-count- 
ing methods. 

Since our imagination has taken us this far, let's now 
suppose that you (still a penguin) wanted to learn to count 
past 3. While pondering this problem, you might look 
down at your feet — and notice two more flippers down 
there. 

Voi la -bigger numbers! 

By using both flippers and both legs at the same time, 
you could count as follows: 

FOUR-BIT PENGUIN MATH 



0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 





1 

2 
3 
4 
5 
6 
7 
8 
9 
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...and so on. 

If you continued counting like this, you would even- 
tually discover that you could express 16 values -0 
through decimal 15 -using four-digit (or four-bit) binary 
numbers. 

ONE MORE LESSON 

Now we're ready for one last lesson in Penguin Math. 
Imagine that you marry another penguin. And, using 
your skill with binary numbers, you determine that you 
and your spouse have a total of eight flippers l>etwecn you. 

If your spouse decides to cooperate with you in count- 
ing with flippers, the two of you could now sit on your 
ice and start a floe chart with numbers that look like these: 



0000 0001 
0000 0010 
0000 0011 
0000 0100 
0000 0101 



If you and your spouse kept on counting in this fash- 
ion-using 8-bit Penguin Math-you would eventually 
discover that by using eight flippers, you could count 
from (or 0000 0000) to 255 (or 1111 1 1 1 1 ), for a to- 
tal of 256 values. 

That completes this crash course in Penguin Math. 
What it has demonstrated is that it is possible to express 
256 values -from 0000 0000 through 1111 1 1 1 1 -us- 
ing 8-bit binary numbers. 

THE HEXADECIMAL NUMBER SYSTEM 

Since computers "think" in binary numbers, the bi- 
nary system is obviously an excellent notation system 
for representing computer data. But, as you may remem- 
ber from last month's column, binary numbers have one 
serious shortcoming: they're extremely difficult to read. 
So the binary system is not the numeric system most 
often used in assembly language programming. The nu- 
meric system you'll encounter most often in assembly 
language programming is hexadecimal. 

Just as binary numbers are based on the value 2, hex- 
adecimal numbers arc based on the value 16. If people 
were born with eight fingers on each hand, we would 
probably all count in hexadecimal numbers. 

Hexadecimal numbers are often used in assembly lan- 
guage programming because they can help bridge the 
gap between the binary and decimal systems. Since bi- 
nary numbers have a base of 2. and hex numbers have 
a base of 16, a scries of four binary bits can always be 
translated into one hexadecimal digit. So a series of eight 
bits (a "byte") can always be represented by a pair of 
hexadecimal digits, and a series of 16 bits (a "word") 
can always be represented by a four-digit hexadecimal 
number. 

Here is a table comparing decimal, hexadecimal, and 
binary numbers. Observe that odd-looking letter-and- 
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number combinations like "FC1C", "5DA4", and even 
"ABCD" are perfectly good numbers in the hexadecimal 
system. 



J1MAL 


HEXADECIIW 


iL BINARY 


1 


1 


0000OO01 


2 


2 


000000 10 


3 


3 


00000011 


4 


4 


00000100 


5 


5 


00000101 


6 


6 


000001 10 


7 


7 


oooooiii 


8 


8 


00001000 


9 


9 


00001001 


10 


A 


00001010 


11 


B 


00001011 


12 


C 


00001100 


13 


D 


00001101 


14 


E 


00001110 


15 


F 


00001111 


16 


10 


00010000 



As you can see, the decimal number 16 is written "10" 
in hex and "000 10000" in binary, and is thus a round 
number in both the binary system and the hexadecimal 
system. And the hexadecimal digit F, which comes just 
before hex 10 (or 16 in decimal), is written 000011 1 1 
in binary. 

As you become more familiar with the binary and hex- 
adecimal systems, you will begin to notice many other 
similarities. For example, the decimal number 255 (the 
largest 8-bit number) is 1 1 1 1 1 1 1 1 in binary and FF in 
hex. The decimal number 65,535 (the highest memory 
address in a 64K computer) is written FFFFFFFF in hex 
and 11111111 1111 1111 in hex. 

CONVERTING BINARY NUMBERS TO 
DECIMAL NUMBERS 

It isn't very difficult to convert a binary number to 
a decimal number. In a binary number, as we've seen, 
the bit farthest to the right represents 2 to the power 0. 
The next bit to the left represents 2 to the power 1 , the 
next represents 2 to the power 2, and so on. 

The digits in an 8-bit binary number arc therefore num- 
bered to 7, starting from the rightmost digit. The right- 
most bit — often referred to as Bit 0- represents 2 to the 
0th power, or the number 1. And the leftmost bit-of- 
ten called Bit 7 -is equal to 2 to the 7th power, or 128. 

The following is a list of simple equations that illus- 
trate what each bit in an 8-bit binary number means. 

VALUES OF THE BITS 
IN AN 8-BIT BINARY NUMBER 

Bit = 2 to the 0th power = 1 
Bit 1 = 2 to the 1st power = 2 
Bit 2 = 2 to the 2nd power = 4 
Bit 3 = 2 to the 3rd power = 8 




Bit 4 




2 to the 4th 


power 




16 


Bit 5 


= 


2 to the 5th 


power 


= 


32 


Bit 6 


= 


2 to the 6th 


power 


= 


64 


Bit 7 


= 


2 to the 7th 


power 


— 


128 



And that number will be the binary equivalent of the 
decimal number we started out with. 

This conversion technique is illustrated in the follow- 
ing example: 



The above table provides an easy method of convert- 
ing any 8-bit binary number into its decimal equivalent. 
Instead of writing the number down from left to right, 
write it instead in a vertical column, with Bit at the 
top and Bit 7 at the bottom. Then multiply each bit in 
the binary number by the decimal number that it repre- 
sents. Then add up the results of all of these multiplica- 
tions -and the total you get will be the decimal value 
of the binary number. 

Suppose, for example, that you wanted to convert a 
binary number (X) 10 1001 into a decimal number. Here's 
how you could do it: 



CONVERTING A BINARY NUMBER 


INTO A DECIMAL NUMBER 


1 X 


1 = 


1 


x 


2 = 





X 


4 = 





1 X 


8 = 


8 


X 


16 = 





1 X 


32 = 


32 


x 


64 = 





x 


128 = 





TOTAL = 


41 



00101001 AND OTHER FANCY NUMBERS 

If the calculation in the above example is correct, the 
binary number 00101001 should be equivalent to the dec- 
imal number 4 1 (that's decimal 4 1 , not hex $4 1 , for those 
already familiar with hexadecimal notation). Look up 
either 0010 100 1 or 41 on any binary-to-dccimal or dec- 
imal-to-binary conversion chart, and you'll sec that the 
calculation was accurate. And this conversion technique 
will work with any other binary number. 

CONVERTING A BINARY NUMBER TO 
A DECIMAE NUMBER 

Now we'll go in the other direction, and convert a dec- 
imal number to a binary number. 

First, divide the number by 2. Then write down both 
the quotient and the remainder. Since we're dividing by 
2, the remainder will be cither a I or 0. So what we 
write down will be the quotient followed by either a 1 
or a 0. 

Next we'll take the quotient, divide it by two. and write 
the result down. If there's a remainder (a 1 or a 0), we'll 
write that down. too. underneath the first remainder. 

When there are no numbers left to divide, we'll write 
down all of the remainders we got. reading from the bot- 
tom to the top. What we'll have then, of course, is a 
binary number- a number made up of ones and zeroes. 



CONVERTING A DECIMAL NUMBER 


TO A BINARY NUMBER 


117/2 


= 58 with a remainder of 1 


58/2 


= 29 with a remainder of 


29/2 


= 14 with a remainder of 1 


14/2 


= 7 with a remainder of 


7/2 


= 3 with a remainder of I 


3/2 


= 1 with a remainder of 1 


1/2 


= with a remainder of I 


0/2 


= with a remainder of 



HOW TO DO IT 

To complete the dccimal-to-binary conversion pre- 
sented in this example, simply copy the binary digits in 
the right-hand column, writing them down horizontally 
from right to left, with the top digit on the right. You'll 
then see that the binary equivalent of the decimal (not 
hexadecimal) number 1 17 is 01 1 10101 . If you have a 
dccimal-to-binary conversion chart handy, you can use 
it to confirm this. 
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PASCAL 

for the Commodore 64 

kyan pascal is * lull implementation. With a single disk drive and 
C64, you can learn Pascal and develop sophisticated programs. 

Ayan pasca/ is p e hect lo r cl ass room o r horn e u se. 1 1 s M en u ■ D r i ven , 
User-Friendly operating environment helps students learn quickly 
and lets advanced programmers develop programs 4 to 40 times 
fasler than Commodore Basic. 

kyan pascal features; 

i Full Screen Editor with Powerful Text Editing Functions 
■ MERGE and Other Convenient File Managemenl 

Functions, 
i Fully Resident Software to Eliminate Disk Swapping. 
* HELP Screens to Speed Learning 
Stand-Alone Runtime Environment, 
i AND, A Comprehensive Tulonal Manual with Sample 
Programs. 

15 DAY TRIAL 
Try kyan pascal. II you are not completely satisfied, return disketle 
nnd manual in 15 days for a full relund. 
kyan pascal with tutorial manual 549.95 

(Mil $450,'copy ini po-siage and hanrthny $950 omside Morin Amencn, 
California readouts ado 6S".iisales in*) 



Call: (4t5) 775-2923 



Accepted 



Send Check/Money Order to: 
kyan software, Dept. C 
1S50 Union St.. Ste. 183 
San Francisco. CA 94123 
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BINARY-TO-HEX AND HEX-TO-BINARY 
CONVERSIONS 

It's easy to convert binary numbers to their decimal 
equivalents. Just use this chart: 



HEXADECIMAL-TO-BINARY 


CONVERSION CHART 


HEXADECIMAL 


BINARY 





0000 


1 


0001 


2 


0010 


3 


0011 


4 


0100 


5 


010 


6 


011(1 


7 


011: 


8 


1000 


9 


1001 


A 


1010 


B 


10 1 1 


C 


1100 


D 


1101 


E 


[IK 


F 


mi 



The above table shows how to convert a multiple-dig- 
it hex number to binary notation: merely string the hex 
digits together and convert each one separately. For ex- 
ample, the binary equivalent of the hexadecimal num- 
ber CO is 1 100 0000. The binary equivalent of the hex 
number 8F2 is 1000 1 1 1 1 0010. The binary equivalent 
of the hex number 7A1B is 01 1 1 1010 0001 101 1. 

To eonvert binary numbers to hexadecimal numbers, 
use the chart in reverse. The binary number 1 101 0110 
1 1 10 0101 , for example, is equivalent to the hexadecimal 
number D6E5. 

DECIMAL- TO-HEXADECIMAL 
CONVERSION 

It's almost as easy to convert decimal numbers to hex- 
adecimal as it is to translate binary to decimal. Here's 
how it's done: 

First, take a decimal integer that you want to convert, 
and divide it by 16. Then write down the remainder, 
like this: 



64540/16 = 4033 with a remainder of 12 

Then divide the integer part of the above quotient by 
16. and write down the result of that calculation: 

4033/16 = 252 with a remainder of 1 

Keep repeating this process until you have a quotient 
of zero. Here's the entire set of calculations needed to 
convert the decimal number 34761 into a hexadecimal 
number: 
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64540/16 




4033 


with a 


remainder of 12 




4033/16 


=: 


252 


with a 


remainder of ] 




252/16 


= 


15 


with a 


remainder of 12 


15/16 


= 





with a 


remainder of 15 





When you've finished this series of calculations, you 
must convert any remainder greater than 9 into its hex- 
adecimal equivalent. In the above problem, three remain- 
ders are greater than 9: the value 12 in the first line, 
the value 12 in the third line, and the value 15 in the 
fourth line. The decimal number 12 equates to the let- 
ter C in hexadecimal notation, and the decimal number 
equates to the letter F. So the remainders, converted into 
hex, are: 




Read the above four numbers, starting from the bot- 
tom and reading up, and you have the hexadecimal num- 
ber 

FCIC 

-which is the number we're looking for- the hexadec- 
imal equivalent of the decimal number 64540! 

DOING IT THE EASY WAY 

We've compared three different number bases: the dec- 
imal system, the hexadecimal system, and the binary sys- 
tem. And now you know how to convert numbers from 
any of these three bases to any other, in either direc- 
tion. Some of the conversion techniques we've covered 
are quite simple, others are fairly complicated, and un- 
less you have a photographic memory, you may not re- 
member any of them by tomorrow morning. But for- 
tunately, you won't have to. Now that you know the prin- 
ciples involved, I'll tell you about an easier way to make 
number-base conversions. Just type and save the pro- 
gram presented in Listing 1 (on page 93) and you can 
let your computer do it for you! 

By the Numbers is a menu-driven BASIC program that 
can convert numbers from any of the three bases dis- 
cussed in this article to any other. 

In next month's column. Under the Hood, we'll take 

a look inside your Commodore's main microprocessor 

and see what makes it tick. Then, finally, we'll be ready 

to start writing some programs in assembly lanauaizc. □ 

SEE PROGRAM USTISCi OS PAGE 93 



SMALL THINGS CONSIDERED 

Our congratulations to the following Commodore users, win- 
ners of subscriptions to Ahoy! courtesy of New York's Small 
Tilings Considered radio show (heard wceknights 5-8 and Sat- 
urdays 6-8 on WNYC AM83): 

Pamela Rosenblatt Zcv Fratikel Meredith Jones Frummcr 

Melissa Rosenblatt Matthew Higgins 



MAKE NO MISTAKE. . . 

CA I.KIT for your Commodore 64 is a powerful, real-world problem solver. Faster, easier and 
more accurate than pencil, paper and calculator - and a lot less frustrating. 







CalKit helps you solve household and small business time if takes to ask "What If '»" You can make 

problems that involve rows and columns of numbers. projections and plan ahead with confidence! 

• balance your chequebook in seconds The CalKit problem-solving package includes bu 

• plan your home or business budget with ease ^ffifc^^S^?!^^,^ 



• simplify your income tax, and your investment 
portfolio 

• calculate loan or mortgage payments, and then 
find out what happens to them in seconds, when 
interest rates change 

That's the real advantage - with CalKit, you can 



The CalKit problem-solving package includes built- 
in templates for the most important home and busi- 
ness needs. Over 20 ready-louse, real-life applica- 
tions on one disk. The rows, columns and calcula- 
tions are already defined. No need for time- 
consuming initial set-ups - all you do is enter your 
data. Other CalKit features, like on-screen menu and 
simple commands, make it even easier. 

An easy and comprehensive manual with tutorials on 
each application are included, You'll be using CalKil 



change any number in your equation, and see how it like a pro, right out or the box. And once you've 
affects : the other numbers. All calculations are per- mastered the built-in templates, you'll be ready tor 

formed instantly! CalKit gives you the answers, in the your own unique spreadsheet programs. 

Powerful solutions + ease of use + low low cost = CalKit. It all adds up to exceptional value, 
for a computer program that can help you every day. 
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S~ ixty times each second the 
VIC and C-64 are inter- 
rupted by an internal clock. 
At that point they stop what 

they are doing and service the inter- 
nipt. They check the keyboard, up- 
date the screen and TIS. and then re- 
sume whatever they were doing 
when interrupted. 

It is possible to "wedge" into this 
interrupt handler and have some of 
our own activities handled in back- 
ground, independent of our main 
program. You may want to scroll a 
game background scene. You may 
want to perform some utility func- 
tion such as handle the joystick or 
possibly take each key pressed and 
print it on your printer as well as on 
the screen. It's possible to do all this 
and more. The process is easy to un- 
derstand and implement. 

The sample programs on page 107 
perform a simple operation but serve 
to demonstrate how to set up, enable, 
utilize, and, when finished, disable 
such a wedge. The programs are 
listed as BASIC loaders; a machine 
language assembly listing is included 
here so you can follow along with the* 
explanations. The assembly listing is 
from the Commodore assembler. 

UNDERSTANDING 
THE INTERRUPT 

To help us understand what's go- 
ing on, let's first discuss the hardware 
interrupt in general. We'll use the 
VIC and C-64 for illustration, but 
this applies in a general way to all 
microcomputers which use the 6502 
or 6510 microprocessor chip. The 
hardware interrupt occurs 60 limes 
each second and is processed by the 
6502 (or 6510) CPU chip. Ail 6502's 
(or 6510's), on receiving a hardware 
interrupt, look to the pointer speci- 
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Tied in ROM locations SFFFE. 
SFFI-F (low byte, high byte). This 
pointer "points' to the first address of 
the routine, which handles the inter- 
rupt. In the VIC it points to $FF72 
in ROM ($FF48 in the 64). When 
the interrupt is recognized, the pro- 
cessor status register and program 



counter are stored on the stack and 
control is transferred to the routine 
beginning at address $FF72 (or 
SFF48). This routine saves the pro- 
cessor registers (A,X,Y) on the stack. 
This routine then does an indirect 
jump to whatever address is con- 
tained in RAM locations $0314, 



Assembly Listing 


LINE! 


L0C 


CODE 




LINE 


MM! 


eeeo 








imttmttttttititttttttttttttttttti 


eeeta 


eeeo 








{t SAMPLE HARDWARE INTERRUPT WEDGE I 


00003 


oeoe 








it BY CAL OVERHULfER I 


MM 


oeee 








Itlttllttltttttlltttttttttttttllttttt 


00003 


oeee 








H VIC VERSION t 


MM* 


oooe 








|t (COMMENTED FOR C64) t 


00007 


0003 








] JtttMMJIlltttt U (litil iru It!J Itll 


0000 a 


0000 








il 'SYSSIB' TO ACTIVATE t 


•9M9 


0000 








|t ^8834- TO DEACTIVATE t 


00010 


0000 








1 ttjt (tlttttttlHtltttttttttttttttttt 


even 


0000 








t • t033C iBTART AT ADDRESS B2B 


tests 


033C 








VECTOR • t0314 (SAME FOR C64 


00013 


033C 








ittttttttttttiiiitmtttttttsttitttti 


00014 


033C 








U SETUP ROUTINE t 


eee is 


033 C 








ittitimmtttittmtttttttttttttitt 


Mei6 


033C 


7B 






BE I (LOCKOUT INTERRUPTS DURING SETUP 


Met 7 


0J3D 


A9 


49 




L0A i»49 | LOU BYTE OF CUR NEW HANDLER 


Mete 


933F 


63 


14 


03 


STA VECTOR (PUT IT IN THE VECTOR LG BYTE 


wet 9 


0342 


A? 


63 




LDA l»03 jHIGH BYTE OF OUR NEW HANDLER 


09028 


0344 


BD 


13 03 


8TA VECTOR* 1 (PUT IT IN THE VECTOR HI BYTE 


00021 


0347 


3S 






CLl ;| ALLOW INTERRUPTS AGAIN 


00022 


034B 


60 






RTS |GQ BACK TO WHERE WE WERE 


00023 


0349 








iiiiiiiimiuiiniiiiMiniiiiKiii 


00024 


0349 








It NEW INTERRUPT HANDLER STAfiTB HERE! 


0002s 


0349 








Itttttlttlttltltttltttttttttttttttltl 


eoo26 


0349 


AS 


C3 




LDA 197 |GET THE CURRENT KEY PRESSED 


00027 


034 B 


BD 


FF 


IE 


BTA «1EFF |PUT IT IN THE MDDLE OF SCREEN 


Men 


034E 








I t USE t04FF FDR C64 


Men 


034E 


A9 


04 




LDA »4 iCODE FOR COLOR - PURPLE 


eoese 


0350 


BD 


FF 


96 


STA 094FF |PUT IT IN COLOR RAH 


M03I 


03S3 








|l USE «D8FF FOR C44 


P©932 


0353 


4C 


BF 


EA 


JHP *EABF (NOW B0 DO N0RHAL HOUSEKEEPING 


ee«33 


B356 








|t USE t£A31 FOR C64 


MeS4 


0356 








iMtltmtttttlMHSMIttttttlttttltl 


•M33 


0336 








|l NEXT, PUT EVERYTHING BACK 1 


00036 


03 36 








Ittitistttiittttitiittiutitiitttiiit 


00037 


0J54 


78 






SEl | LOCKOUT INTERRUPTS DURING RESET 


Mesa 


0337 


A? 


BF 




LDA ItBF iNORHL INTERRUPT ROUTINE L0 BYTE 


Mei9 


0339 








[i USE 0*31 FOR C64 


eeete 


0339 


BD 


1* 


»3 


STA VECTOR (PUT IT BACK IN LO BYTE 


00041 


035C 


A9 


EA 




LDA »tEA |N0R«L INTERRUPT ROUTINE HI BYTE 


MM3 


033E 








It BANE FOR C64 


M043 


e3SE 


BD 


13 


03 


BTA VECT0R+1 ]PUT IT BACK IN HI BYTE 


*e»M 


936 1 


SB 






CLI | ALLOW INTERRUPTS AGAIN 


ems 


»3&2 


60 






RTS gALL DONE, BO BACK WHERE WE WERE 


CM* A 


9363 








jttuitittttittttiiutmtiiittttutt 


99647 


0363 








l» END OF LISTING t 


M04S 


0363 








i m t ii ii ii mi u it « ui tiii it iiiiiin 


MM9 


0363 








.END 


ERRORS 


■ 00000 









h in 



cm 



A MACHINE LANGUAGE TUTORIAL FOR BEGINNING 
AND INTERMEDIATE ML PROGRAMMERS 

By Calvin Overhulser 



$03 15. This is referred to as the vec- 
tor location. When power was turned 
on, the start-up routine set these lo- 
cations to point lo ROM location 
SEABF (SEA31 in the 64). At 
SEABF (or SEA3 1 ) begins the rou- 
tine to take care of the keyboard, 
screen, and TI$. 

When this routine finishes, it re- 
stores all processor registers and re- 
turns the CPU to where it left off 
when the interrupt was recognized. 
The key to all this is RAM locations 
S0314, $0315. Since they are RAM, 
we can put our own address in them. 
Later, when the interrupt is recog- 
nized, we can perform our own 
activities and then jump to SEABF 
(or SEA31) to allow the normal 
housekeeping. 

HOW TO MAKE IT WORK 

Make sure any memory expanders 
are unplugged on the VIC. Enter the 
appropriate BASIC loader for your 
computer at the keyboard and RUN 
it. The BASIC loader POKEs the 
machine language from the DATA 
statements into the cassette buffer. 
Next, start it all off by ivping 
SYS828 followed by the RETURN 
key at the keyboard. This takes us 
to our setup routine at S033C. Now 
follow along while looking at the as- 
sembly listing. We wouldn't want an 
interrupt to occur while we arc 
changing its vector, so first wc lock 
out interrupts in line 16. Then we 
change the vector to point to our own 
routine, enable interrupts, and return 
to the main program with RTS in line 
22. 

Now the fun begins! From now 
on, our routine, beginning in line 26, 
will run first when the interrupt oc- 
curs. Hit a key and watch what hap- 
pens; a charcter is printed in the cen- 
ter of the screen. You may notice the 
character is not the one you press. 
This is because we are taking the 



code from the register holding the de- 
coded keyboard matrix and storing 
it on the screen. These codes are dif- 
ferent than the screen codes and this 
causes the strange character to ap- 
pear. After we put the character on 
the screen in line 27, we put the code 
for purple in the corresponding col- 
or memory location in line 30. Last, 
in line 32, we jump to the normal 
housekeeping routine. This all occurs 
60 times each second. 

To disable our routine and put ev- 
erything back to normal, just type 
SYS854 followed by RETURN. 
SYS854 takes us to line 37 in the as- 
sembly listing which puts the vector 
back lo normal. Hitting the RUN/ 
STOP and RESTORE kevs will have 



the same effect. Make sure you dis- 
able our interrupt routine before you 
try to SAVE or LOAD tape, other- 
wise there will be a conflict since the 
routine resides in the cassette buffer. 

APPLICATIONS 

Now that we know how to use the 
hardware interrupt we can write rou- 
tines to handle any job which wc 
need done at a regular interval. 
Would you like to do sound effects 
Or screen background motion? 
Would you like to do a screen dump 
to your printer whenever you hit a 
certain key? Use your imagination 
and all kinds of possibilities may be 
revealed, 1 i 
SEE PROGRAM LISTING ON PAGE 107 
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We're sure you're looking forward to trying out the programs in this issue of 
Ahoy! But we're equally sure that you're not looking forward to typing them in. If 
you're an average typist, that should take you upwards of 25 hours. Not counting time 
spent correcting your typing errors, of course. How long that will take is anyone's guess. 
• How would you like someone to type the programs for you? At a price of, say— 32c 
an hour'? Wouldn't it be worth 32C an hour to free yourself up for more pleasant pursuits- 
like enjoying the rest of your Ahoy! magazine? • If you order the Ahoy! Program Disk or 
Cassette, you'll be getting that service for just under 32<t an hour. Because for $7.95 (postage 
included); we'll mail you ali the programs in this issue, on a disk or cassette that's tested and 
ready to run with your C-64 or VIC 20. If you subscribe, you'll save even more: 12 monthly 
disks or cassettes for $79.95, 24 for $149.95 (postage included}*. Back issues are available as 
well, • You already know how to type. Why not use the hours you spend with your Commodore 
to learn something new? "Canadian and foreign prices higher. 
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ASSEMBLER ESCAPADES 

Putting Assembly Language Routines into BASIC 

By Dale Rupert 



A~ re you curious about those BASIC programs 
that contain line after line of numbers in 
DATA statements? Perhaps you know that 
somehow all of those numbers represent a 

machine language program. If you've wondered where 
the numbers came from in the first place, just keep read- 
ing. Enlightenment is close at hand. 

This month we will continue last month's work. We 
will use an assembler to create a machine language pro- 
gram. Next, using a disassembler, we will look at that 
program in memory. Finally we will convert the ma- 
chine language instructions into the DATA statements 
of a BASIC program. 

If this is your first experience with assembly language, 
this article will be at least a two-pass process. I strong- 
ly recommend that you read it through first for an over- 
view of all the concepts, then reread it at least once to 
study how the pieces fit together. 

Last month we discussed the Kernal routine called 
SAVE. We used SAVE from within our BASIC program 
to put a specified portion of memory onto a disk pro- 
gram fde. Specifically, we wrote a program to store the 
machine language portion of DOS 5.1 Ohe Wedge") onto 
any diskette. We also discussed the modifications re- 
quired to save a screen image onto a disk. 

This month we will work with a program to save both 
the screen memory and the color memory data of the 
Commodore 64 onto separate disk files. We will start 
with last month's BASIC subroutine to access the Ker- 
nal SAVE routine. Then we will edit, assemble, and dis- 
assemble a machine language program to replace that 
BASIC subroutine. Have a look at the main program 
in Listing I (see page 91), 

Lines 150 through 330 access the Kernal SAVE rou- 
tine, as we discussed last month. They form a subrou- 
tine which is called from lines 60 and 90. When this 
subroutine is called. SADDR and EADDR contain the 
starting address and ending address respectively of the 
portion of memory to be written to a disk program file. 
The file's name is specified by the variable FLNAMS. 
The OPEN statement in line 230 replaces the SETLFS 
and SETNAM Kernal routines which are prerequisites 
for the SAVE routine. Review last month's article or re- 
fer to the description of the SAVE routine on page 293 
of the Commodore 64 Programmer's Reference Guide 



(PRG). This is the subroutine that we will replace with 
a machine language program. 

We will come back to lines 1 and 2 of Listing 1 later. 
Lines 10 and 20 define the functions which calculate the 
most significant byte (MSB) and the least significant byte 
(LSB) of any integer X, Line 30 calls the subroutine at 
line 500 which puts a fancy design on the screen. 

Lines 40 through 60 define the variables required for 
the SAVE routine. The filename of the screen memory 
is @:SCRN1. The "@:" will cause any previous ver- 
sion of SCRNl to be erased before the current screen 
data is saved as an updated SCRN 1 . This is handy for 
debugging so that you don't have to repeatedly define 
new filenames every time the program is run. On the 
other hand, when you use this program to save your own 
screen images, you will want to use a new filename for 
each screen image. 

Before putting an image onto the screen, you could 
use INPUT statements to specify the filename for the 
screen memory and the color memory. You might add 
lines 26 and 27 as follows to do this: 

26 INPUT "CREATE WHAT SCREEN FILENAME?"; 
FS$ 

27 INPUT "CREATE WHAT COLOR FILENAME?"; 
FC$ 

You would then replace lines 40 and 70 with these lines: 

40 FLNAM$ = FS$ 
70 FLNAM$ = FC$ 

The additional statements to restore the screen image 
are in lines 100-140 and line 600. Line 1 10 clears the 
screen image which has just been saved to disk. Line 
130 sets a Hag QO to 1. We'll see why in a moment. 
The color memory filename is stored in FLNAM$, and 
the program jumps to line 600, Line 600 loads the data 
from that file back into the memoryJocation whence it 
came (because of the ", 1" at the end of the LOAD state- 
ment . ) 

After the LOAD statement is done. BASIC behaves 
as if a GOTO were next, and execution resumes at 
the start of the program. In line 1, the value of QQ is 
tested and seen to be 1, so the program branches to line 
140. When this program is run for the first time, the 
value of QQ is 0. Consequently lines 1 and 2 are by- 
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passed initially. 

At line 140, the QQ Hag is set to 2, and FLNAMS 
is given the value at" the screen memory filename. Line 
600 loads the screen file data back into the proper area 
of memory which is now at locations 1024 through 2023, 
and the image reappears on the screen. As before, exe- 
cution continues from the beginning of the program. 
Since QQ now has a value of 2, line 2 causes the pro- 
gram to end. If you wish to do something else with this 
screen image, simply modify line 2 to jump to your own 
routine. 

THE ASSEMBLER 

Our next goal is to write an assembly language rou- 
tine to duplicate the functions of the BASIC Statements 
in line 240 through 310 of Listing 1. First you must have 
an assembler program, I used the IEA Instant Editor As- 
sembler from Robin's Software (Bloominglon, MN). It 
is a reasonably priced editor, assembler, and monitor 
package that is self-contained and relatively easy to use. 
If you are using another assembler, the procedures in 
the following discussion will be very similar. 

The IEA assembler does not require a separate editor 
program to create the assembler source file. Instead it 
adds some commands to the BASIC screen editor. Thus 
you create an assembly language routine much the same 
way you do a BASIC program. Simply type each assem- 
bler statement on a separate line. Although IEA allows 
the BASIC and assembler routines to be contained with- 
in the same file, we will create the assembler routine 
separately . 

Look at the statements in Listing 2 (page 92). 

With the exception of the periods at the start of each 
line, lines 210 through 340 were typed just as shown. 
(Lines 10 through 30 and the initial periods on each line 
were added later in order to create the magazine listing.) 

The assembler takes this "source code" which consists 
of somewhat Englishlike statements and translates it into 
"object code" which is the actual machine language num- 
bers that the processor understands. Some of the state- 
ments in this source code translate directly into machine 
code, while others are special instructions for the as- 
sembler, called "pseudo-ops." 

First we will discuss the 6510 microprocessor instruc- 
tions in the source file. Then we will look at the pseu- 
do-ops. Pages 232 and 233 of the PRC, list the 65 10 in- 
struction set. Using that list, you can see that lines 230 
and 260 through 320 of the source listing contain actual 
6510 instructions. 

Line 230 tells the processor to JuMP to the line la- 
beled ": ENTRY". Each label is preceded by a colon. 
The line numbers in Listing 2 have been chosen to cor- 
respond as much as possible to lines performing similar 
functions in Listing 1. 

The accumulator is frequently used as an intermedi- 
ary since the 6510 microprocessor cannot directly move 
data from one memory location to another. Line 260 
loads the accumulator (LDA) with the value stored in 
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the memory location labeled ":SADDR". Line 265 takes 
that value in the accumulator and stores it (STA) direct- 
ly into memory location SFC, which, you may recall 
from last month, is a page- zero location available to us. 
The "$" indicates a hexadecimal value. Similarly the val- 
ue in memory location ":SADDR + 1" is loaded into 
the accumulator and then stored into page-zero location 
SFB in lines 270 and 275. (We will see what those mem- 
ory values are a little later.) 

Line 280 is a "load immediate" instruction as indicated 
by the "#" in front of the $PB, Rather than treat the $FB 
as an address as it did with ":SADDR" above, the micro- 
processor will put the value of SFB directly into the ac- 
cumulator. 

Lines 290 and 300 take whatever values are in mem- 
ory locations ":EADDR + 1" and "iEADDR" and load 
them (LDX. LDY) into the X and Y registers. Glance 
back at Listing 1 , and see that these assembly language 
instructions duplicate the functions of the BASIC instruc- 
tions in lines 260 through 300. 

The JSR instruction in line 310 is comparable to a 
GOSUB statement in BASIC. It tells the processor to 
call the subroutine whose address is stored in the mem- 
ory location labeled ":SAVE". You can see that the as- 
sembler memory location labels are analogous to vari- 
able names in BASIC. 

At the end of the Kcrnal SAVE routine is an RTS (Re- 
turn from Subroutine) instruction which transfers con- 
trol back to our program at line 320. The RTS instruc- 
tion in line 320 returns control back to BASIC. Notice 
taht Listing 1 doesn't need such a statement since the 
SAVE routine returns directly to BASIC. Listing 2 cre- 
ates a machine language program which calls another 
machine language Kernal routine, whereas Listing I is 
a BASIC program that calls the Kernal routine. 

PSEUDO-OPS 

The instructions in Listing 2 that we have not yet dis- 
cussed are the pseudo-ops. They look somewhat like as- 
sembly language mnemonics (LDA. RTS, etc.) but they 
are not among the instructions recognized by the 6510 
microprocessor. The pesudo-ops are instructions to the 
assembler. 

The ORG (Origin) instruction tells the assembler where 
the program is to reside in memory. We've chosen SC(XX) 
for the start of our routine. The next pseudo-op is the 
.EQ (Equate) in line 240. This is equivalent to the LET 
statement in BASIC. It assigns the value SFFDB to the 
label :SAVE. just as we did in line 240 of Listing 1. 
The .EN instruction in line 340 tells the assembler where 
the end of our assembler source code is. These three 
pseudo-ops do not actually cause any data to be put into 
memory. 

The pseudo-op ,DB (Define Byte), on the other hand, 
does cause data to be stored in memory. The location 
in memory for the first of the two bytes S04 and $00 
will be referred to by the label :SADDR. and :EADDR 
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identifies the memory location of [he first of the two bytes 
$07 and $E8. The second bytes are at (:SADDR + I) 
and (:EADDR + i) respectively. 

If we were to assemble this program by hand, we 
would have to figure out how many bytes long the JMP 
instruct ion in line 230 is in order to know where in mem- 
ory the $G4 and the $00 will reside. The assembler takes 
care of thai lor us. It allows us to refer to the memory 
locations by means of the labels we have chosen. Con- 
sequently we don t even need to know the actual numer- 
ical values. 

Since assembly language is a lower-level language than 
BASIC, comments are even more crucial lor debugging 
and for figuring out tomorrow what the routine yoti wrote 
today was supposed to do. A semicolon defines the start 
of a comment in the source code. Anything after the 
semicolon on a line is ignored by the assembler. 

Right now you may be wondering what we do with 
the source code we've created. First we save the source 
code just as we would save any BASIC program we have 
typed in. Then we assemble it. 

With the IEA assembler, the instruction .A puts the 
assembler into action. The mnemonics arc translated into 
their numeric values. The values following the ,DB pseu- 
do-ops are inserted in their proper places. Also a sym- 
bol table is created which shows the numeric values as- 
signed to each of the labels. Typing .X with the IEA 
assembler displays a symbol table as shown in lines 40 
through 70 of Listing 3 (page 92). 

Notice that :SADDR begins at SC003. The ORG state- 
ment spec i lied thai our program was to begin at $C(KX). 
From this we can conclude thai the JMP instruction re- 
quires three bytes, residing from addresses SC000 to 
$C002. The label :END has a value $C01D, so our pro- 
gram will occupy memory locations SC000 through 
SC01D. Actually the .EN pseudo-op creates a $00 byte 
at location SCO ID which corresponds to a BRK (Break) 
instruction. Refer to page 256 of the PRG to see the hex 
values (called the op-codes) of all instructions. 

Now that we have edited (created) and assembled this 
program, we can save it to disk as an executable tile 
if we wish. Using the .$ command saves a specified 
range of memory under a filename that we choose. The 
program saved is called the object code. In order to see 
what the object code looks like, with the IEA assembler 
we must use a separate monitor program. 

THE MONITOR 

A monitor program allows you to readily peck at data 
and instructions stored in memory. A monitor will typ- 
ically contain a disassembler which translates I he num- 
bers it finds in memory back into the mnemonics that 
we used with the assembler. Generally a disassembler 
cannot create labels since those are not stored in mem- 
ory as part of the object code. (A symbolic debugger 
will allow you to assign labels and refer to them during 
debugging, but we won'l use one here.) 
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Listing 4 (see page 92) shows the result of disassem- 
bling our object code as it resides in memory. 

I have added the numbers in the left column for the 
magazine listing. They correspond to the numbers in 
Listings 1 and 2. The disassembled object code is in es- 
sence what the microprocessor sees when it executes our 
program (yes. we know the values in memory are really 
0's and l"s rather than hexadecimal, but binary is too 
cumbersome for our brains). 

The second column of numbers indicates the memory 
addresses where each instruction resides. The next one. 
two or three hex values are the op-codes for each in- 
struction. The last columns contain the mnemonic in- 
structions corresponding to the op-codes. 

For example, beginning at memory location SC0OO 
are the three bytes S4C $07 SCO. When the processor 
sees the $4C instruction, it recognizes it as a JMP state- 
ment. The processor expects the next two bytes to rep- 
resent the address to which it will jump. Those two bytes 
are stored in the LSB. MSB format we have already dis- 
cussed. Consequently the processor jumps to address 
SC007 in order to fetch its next instruction. 

Some instructions are only one byte long (RTS) and 
others may be two or three bytes long. Part of the pro- 
cessor's job is to determine from the op-code how many 
bytes make up each instruction. If you glance at the de- 
scription of the LDA instruction on page 245 of the PRG, 
you will see that it may be either a two or three byte 
instruction. How does the processor know? Very simply, 
each form of the instruction has a separate op-code. 

Op-code SA9 implies a two-byte instruction, and op- 
code $AD is part of a three byte long instruction. The 
assembler mnemonic is LDA in both cases, but the pro- 
cessor sees them as two different instructions. In the first 
case (line 280 in Listing 4), the processor treats the next 
byte (SFB) as data which is immediately loaded into the 
accumulator. In the second case {line 270), the next two 
bytes ($04 SCO) are treated as an address ($C004) from 
which the processor retrieves a byte of data to be stored 
in the accumulator. 

The disassembler treated our data in locations SC003 
through SC006 as if they were op-codes. The $04 and 
S07 are not valid op-codes whereas S00 and $E8 just 
happened to be valid. These values correspond to the 
screen memory starting and ending addresses that will 
be used by the Kernal SAVE routine. Our BASIC pro- 
gram will POKE the correct data into these memory lo- 
cations before this program is executed. The processor 
will not mistakenly execute this data since the JMP in- 
struction at $C000 branches around it. 

To test your understanding of this disassembly list- 
ing, see if you can figure out what value will be loaded 
into the Y register when the instruction at memory lo- 
cation SCO 1 6 is executed. If you said $07. you are cor- 
rect. LDY SC005 tells the processor to take the value 
from location SC005 and put it into the Y register. Ac- 
cording to line 253. the value in location $C005 is $07. 
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Now what value will be stored in page-zero location 
SFB by the instruction at location SCOOF? If you said 
$00. you're right! Notice that the accumulator contained 
the value which it got from SC004 in line 270. The val- 
ue in SC004 is $00. 

BACK TO BASIC 

We can now modify our original program to imple- 
ment the machine language routine we've just discussed. 
From the disassembler output, we easily create the 
DATA statements in Listing 5 (see page 92). The state- 
ments in Listing 5 will replace the corresponding lines 
in Listing 1 . 

The data is POKLd into memory by the statements 
in lines 190 through 220. Once that is done, memory 
locations $C00O through SC01C look the same as they 
did after we assembled our source code. The first time 
this subroutine is called (by line 60), the machine lan- 
guage data is read and stored in memory. The second 
time it is called (by line 90), lines 190 through 220 are 
bypassed. 

Lines 240 through 290 put the appropriate screen or 
color memory starting and ending addresses into the 
proper RAM locations (which we determined from the 
symbol table in Listing 3 and from Listing 4). 

Finally the SYS statement in line 310 sends the pro- 
cessor to our machine language routine at address 49152 



(SCOO0) where the specified memory data is written to 
a disk file. As in Listing I. the filename is established 
by the OPEN statement in line 230. 

There is really no advantage to using the machine lan- 
guage version of this subroutine compared to the BASIC 
version. The machine language version has been written 
to exactly duplicate the BASIC one. The Kemal SAVE 
routine lakes the same amount of lime to execute regard- 
less of which routine calls it, so we have no speed ad- 
vantage in this particular case. This has been primarily 
an academic exercise. 

Hopefully you now have a belter understanding of how 
machine language routines may be incorporated into 
BASIC programs. Perhaps you have learned something 
about editing, assembling, and disassembling. This ar- 
ticle has provided a model which may be useful for crea- 
ting and calling your own machine language routines 
from BASIC. If nothing more, at least you have two 
versions of a program for saving and restoring screen 
images on disk. 

The IEA Instant Editor/ Assembler is $39.95 + $2 p&h 
from Robins Software, 10349 Zinran Circle. Bloom- 
ington. MN 55438. Mark Robin mans the assembly lan- 
guage hotline at 612-944-8654 from 6 to 10 p.m. (CST) 
seven days a week to assist Commodore 64 assembly 
language programmers. □ 

SEE PROGRAM LISTINGS ON PAGE 91 
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You are making a raid on Heartland to cap- 
ture as many hearts as you can. But beware 
of the butterflies. One touch and you'll lose 
one of your lives. Touch too many and you 

lose the game. 

This game uses a joystick to move a playing piece 
through a simple maze, capturing hearts by touching 
them. Floating around in the maze arc butterflies. You 
must avoid them and collect all the hearts to exit from 
the maze. If you make it, you score extra points and 
gel a new maze. 

Up to nine people can play, taking turns with the joy- 
stick. There are nine levels of play as well. The game 
may seem simple at first. But looks can be deceiving! 
Machine language is used for the maze action to pro- 
vide fast movements and quick joystick response. 

Two programs are used to LOAD and RUN Raid. 
Type in the Disk Boot on page 94 if you use a disk drive. 
Use Cassette Boot, also on page 94. if you have a 
datasette. Then type in the main listing. SAVE the pro- 
fit? AHOY! 



gram with the name Raid so the boot program can LOAD 
ii properly. 

Since there are many DATA statements, we've in- 
cluded a "checksum" to help you detect any errors in 
typing. The last number in each DATA line is negative. 
Be sure to type in the minus sign. 

When you first RUN Raid, you may see an error mes- 
sage on the screen. The message will identify the line 
number of a DATA statement that has an error. Once 
you've found all the errors, the program will display the 
maze and ask you for the number of players and level 
of difficulty. 

You can remove the REM statements in lines nine 
through twenty-Five if you wish. Line #2140 displays 
the updating address on the screen during the machine 
language load. The program will LOAD faster if you 
leave out the two PRINT statements on this line. Don't 
take out the POKE statement! 

We hope you enjoy this simple but challenging game. D 
SEE PROGRAM LISTING ON PAGE 94 
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Continued from page 39 

than the start of BASIC. For instance, you might have 
a hi-res screen you wish to save, or a block of sprite 
data that you want to write directly to disk. Give your 
data block a filename, enter its starting address and end- 
ing address+ 1 , and Dos Plus will do the rest. No more 
loading a monitor to save machine language programs! 
You may reload such saved files by typing LOAD "file- 
name", 8.1 < return >. You could even save BASIC 
ROM itself, if that were your passion. Notice that 
the file saved is automatically verified for you. 
This one is used several ways: 

*FILENAME <RETURN> 



or 



♦"FILENAME" <RETURN> 

or by entering the asterisk directly in front of a filename 
in a directory listing. This is the SINGLE-FILE COPY 
command structure. After entering it. you will be 
prompted for a destination. Single drive users should 
respond by entering '8'. The file will now be copied into 
memory from the disk that is presently in the drive with- 
out overwriting any program you might have in memory. 
The size of file that may be copied is limited only by 
the amount of memory available between the next even 
page boundary above the end of any program in memory 
and the top of BASIC. If, during the copy process, the 
file exceeds the top of BASIC high memory, the copy 
will abort with 'FILE TOO BIG.' If you are going to 
copy a very large file it would be wise not to have a 
program in memory at the time of copy. After the entire 
file has been brought in from disk you will be asked to 
insert the destination disk and press RETURN. The en- 
tire file will then be written to the destination disk. The 
file will be auto-verified at that point (unless you have 
defeated that function). If you wish to abort the copy 
process, you can do so by pressing RUN/STOP at the 
'INSERT DESTINATION DISK' query. Do not attempt 
to copy relative files with this function. Sequential, user, 
and program files may all be copied but will be written 
as program files. If you use this function to copy a non- 
program type file you may use the @:D (block dump/ 
modify) command to change the file-type identifier in 
the directory. If you arc using two disk drives you may 
enter "9' to the 'TO 7 8/9' prompt. Be careful that drive 
'9' is present or the computer will 'hang.' After the copy 
process is complete you will be logged to drive 9. 

Since drive logging has been mentioned, note that if 
you are using two disk drives, one as drive 8, the other 
as drive 9, you may use Dos Plus to work with both. 
To change the drive you are currently logged to, enter: 

@8 <RETURM> 



or 



@9 <RETURN> 

as appropriate. After logging to a given drive, all fu- 
ture disk operations with Dos Plus will be performed 
on that drive. To work with the alternate drive you must 
log to it with the correct @ <number> . Also note that 
this is automatically done when you use the copy func- 
tion (*) and enter the appropriate drive number to the 
'TO 7 8/9' prompt. 

Want to verify a program that is at a location other 
than the start of BASIC7 Type: 

@:V'FILENAME' ,$<START ADDRESS ><RETURN> 

This is primarily useful if you have disabled the auto-ver- 
ify lunction of Dos Pins. Since verifying large saves can 
be time consuming, you may wish to disable the auto- ver- 
ify on saves or copys from within Dos Pius. You do 
this by changing the DOS. BOOT program which loads 
DOS PLUS. Alternately, you may POKE the appropriate 
location as is listed in Table 1. The @:V (verify) com- 
mand enables you to verify saves or copys as you see fit. 

Some additional commands: 

@ - Read disk error channel 



/2 



Program 

in the 

FAST LANE 



Learn 

Assembly 

Language 

Programming! 




L 
E 

A 
R 
N 



• Commodore's Assembler 

• Merlin 64 Assembler 

• Kid Assembler (included PRIE in book!) 

• Learn to use opcodes, operands and everything 
else to program in machine/ assembly language. 

• Watch your program run at warp SPEED! 

Only $14.95 at your favorite book or computer store or order 
direct (include $1.50 for shipping and handling — California 
residents add 6% sales tax). 

Dealer Inquiries Invited 

MAIL TO: • "I 




m,wr B9S2 Stimson Q., San Diego, CA 92129 
(619) 484-3884 
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/filename - Load a program at start of BASIC 
% filename —Load a program at its load address 
-•-filename —Save a program from start of BASIC 

(will auto -verify unless disabled) 
f filename -Load & Run a program at Start of 

BASIC 
#<nnnn> -Give hex number for decimal input 
$<nnnn> -Give decimal number for hex input 
@Q -Disconnect Dos Plus 

These commands work as they do in previous Wedge 
programs. The hex and decimal number conversions use 
16-bit arithmetic, meaning that the largest values returned 
are 65535 and SFFFF respectively. Right justification 
is used for hexadecimal input. This means that SABCDE 
will be taken as $BCDE. etc. 

For the hard to please among you and the true hacker 
types, three command structures have been supplied that 
are null routines. These are: @:l, @:2. and @:3. All 
three merely print a carriage return and jump to BASIC 
at $E386. You may re vector these commands to your 
own custom routines by changing the last three jump 
addresses at the very end of the DOS Plus machine lan- 
guage to the addresses of your routine. Characters en- 
tered with these commands will be in the system input 
buffer at $0200 and are terminated with a zero byte. Your 
routines should return to BASIC with a JMP SE386 in- 
struction, not an RTS to DOS PLUS. 



r 



Commodore 64 
Programming 



Made Simple = 




pp. 360 

Learn to program! David A. Lien has taught 
thousands of people BASIC programming and 
introduced them to writing custom software. 
Hands-on instructions in a simple, comprehensive 
and even humorous style make learning fun. With 
Learning Commodore 64 BASIC you car. enjoy 
the full powers of your C-64! 

Order by calling TOLL FREE 800-854-6505 (in 
Calif. 619-588-0996) or send $14.95 plus $2.00 
($3.00 foreign) for postage and handling. Visa and 
MasterCard users, include card # and expiration 
date. Mail to: 




CompuSoft" Publishing 

535 Broadway, Dept. 270585 

El Cajon, CA 92021 



The DOS. BOOT program contains several POKEs that 
are user modifiable. These addresses and their functions 
are outlined below. 

POKE 53230,001 : I «auto-verify 0=don'l auto-verify 

poke; 53012,008 : default drive at power-up 

POKE 51329,096 ; 96-UPPER CASE Printer Sec, Addrs, 
1 03 -lower ease Printer Sec. Aildr.s. 

POKK 53040,018 : 18 = reverse video on directory header 
146 = no reverse video 

POKE 53063.018 : .same as above 

POKE 50W9.144 : color of hex numbers in DUMP/MODIFY 

POKE 51069.144 : same as above 

POKE 51057.005 : color of ASCII digits in DUMP/MODIFY 
(llns coinbiiuiion looks best on my amber 
Taxui), A llcr to your tastes -use ASCII num- 
ber lor color code, nol Commodore color 
codes, i.e., 5 = white. 28 = red, I44 = black, 
etc.) 

By POKEing these locations you can. with the appro- 
priate values, alter Dos Plus to your own tastes. Any, 
or all. of these locations can also be changed directly 
front the keyboard should you so desire. Merely POKE 
the location with the value you wish to substitute. This 
will save you from having to run the loader program 
to make the changes. 

Well, there you have it -a balanced set of tools all 
wrapped in one tight package that won't steal precious 
space from your BASIC programs. Since Dos Plus takes 
up all but two of the locations at SC000 - SCFFF. you 
will most likely find a conflict in memory usage with 
some other utility that you like lo use. Experienced ma- 
chine language programmers will be able to get around 
this by relocating these utilities and patching them to Dos 
Plus with the supplied hooks. If it is beyond your pres- 
ent programming skills to implement such a patch, you 
will find the inconvenience to be more than outweighed 
by the usefulness of Dos Plus. Who knows? After a time 
you may wonder how you ever got along without it! 
Shortly after I wrote Dos Plus. I completely destroyed 
the directory tracks on a CP/M disk on which I had the 
only copy of a compiler I was writing. Using the BLOCK 
DUMP/MODIFY function of Dos Plus. 1 was able to 
reconstruct the directory tracks and thus recover three 
months" worth of work. 

Writing Dos Plus has been an educational experience 
for me. I hope that using it will prove to be a pleasur- 
able and educational experience for you. 

For those who wis!) to patch their own machine lan- 
guage routines to Dos Plus, or are merely curious or 
want to learn more about assembler, I will supply copies 
of the source code for Dos Plus. Since this amounts to 
over 30 pages of heavily commented hardeopy I will have 
to ask that you help cover the cost of paper. Send $1 .50 
and a self-addressed, stamped man i la envelope to: Den- 
nis Muscalelli. R.D. ffl Box 543. Morrisdale. PA 16858. 

I wish to express my deepest thanks lo Professors Wil- 
liam Englebret and Gene Sehlossbergcr at The Penn- 
sylvania Stale University for their critical comments and 
assistance with debugging, [ ] 

SEE PROGRAM LISTINGS ON PAGE 98 
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ON-COURT TENNIS 
Gamestar 

Commodore 64 
Disk, joystick; $29.95 

Anyone who doesn't think compu- 
ter games have come a long way 
since Pong ought to try a few sets 
of On-Court Tenuis. It's hard to im- 
agine two games based on the same 
sport being more different. 

On-Court Tennis features fluid an- 
imation, highly sophisticated compu- 
terized opponents in the solitaire 
mode, and true-to- life strategy. It's 
a far cry from rectangular racquets 
hitting a square "ball." In fact, the 
hardest part about learning to play 
this sports simulation is the way it 
shatters preconceptions. 

The most radical change is that the 
joystick is used to select the desired 
stroke, not move the athlete around 
the screen. In effect, On-Court Ten- 
nis is a strategy, as opposed to an ac- 
tion, game. 

The display shows the court in 
three-quarter perspective, with the 
serving player at the bottom of the 
screen. As the onscreen character 
tosses the hall into the air, the com- 
puterist moves the joystick to start the 
volley. The direction in which the 
stick is pushed determines the place- 
ment of the shot. Hitting the action 
button produces an especially hard 
serve. 

The computer automatically posi- 
tions the raequeteer into position to 
return a shot. The main challenge, 
therefore, is timing the swing and 
choosing the specific stroke. The 
earner can pick a flat shot, lob, top- 
spin shot, slice, or drop shot. Wheth- 
er the ball goes left, right, or straight 
ahead depends on when the player 
swings. 

The meticulously accurate ball- 
shadow isn't just window dressing. 
It's the principal guide to timing a 
racquet stroke. This can be tricky, 
since the shadow is in a different po- 
sition, relative to the ball, depend- 
ing on whether the onscreen player 
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On-Court Tenuis: an outright winner. 
READER SERVICE NO. 191 

is in the far court or the near court. 
Four robot foes arc ready to bat- 
tle the computerist in a single set or 
a three- or five-set series. Each op- 
ponent has strengths and weaknesses 

Fleet System can 
check any docu- 
ment against a 
70,000 word dic- 
tionary on the 
flip side of the 
disk (without ex- 
iting the program) 
and highlight all 
suspect words. 
READER 
SERVICE 
NO. 192 
and favors a particular style of play. 
"Ivan Messier," for example, plays 
the baseline and boasts a terrific 
serve. "Jimmy Orr," on the other 
hand, roams the entire court and de- 
pends most heavily on a superb fore- 
hand. All four arc programmed to 



vary their skill as the human player 
gains mastery of the game. 

The playing surface also affects the 
difficulty level. The ball bounces true 
on a hard court, goes faster on grass, 
and slows on clay. 

Novices are strongly urged to be- 
gin by trying one set on clay using 
the base liners. On-Court Tennis is a 
very demanding game even at its eas- 
iest setting, and the first few rounds 
of play are bound to be error-filled 
and highly frustrating. This is one 
game that tie finitely repays the in- 
vestment of a couple of practice ses- 
sions. If all else fails, watch the corn- 





Trolls and Tribulations (see page 71). 
READER SERVICE. NO. 193 



putcr play itself to gel some hints. 

On-Court Tennis is truly a land- 
mark computer entertainment pro- 
gram. It takes a fresh look at a sub- 
ject, video tennis, which many con- 
sidered totally played out. This out- 
standing disk proves them wrong. 

Gamestar, 1302 Slate Street, San- 
ta Barbara, C A 93101 (phone: 805- 
963-3487). —Arnie Katz 

FLEET SYSTEM 2 

Professional Software, Inc. 
Commodore 64 
Disk; $79.95 

What kind of word processor can 
you expect from a company whose 
latest program was Trivia Fever? Be- 
fore tossing off a flip one-liner, con- 
sider this: the company is Profession- 
al Software, whose venerable 

AHOY! 63 



A Survival Guide to the 
1541 Disk Drive 

This is a 40 + page book and comes complete with all 
commands and examples on how to use them. 

*6.99 



The Complete Book on 
Telecommunications 



$6.99 



A 40 + page book that will help you get started with your 
Modem. How to use it and how to access a BBS. Com- 
puServe, Dow Jones as well as up and down load. 



1541 Super ROM 



$39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 1 Second Format with Verify 

• No more Drive Head rattling 
during Format or Error Reading 



also Save with Replace is 
Improved 

Two times faster, Eight times faster 

when used with Turbo 64 which is included 



1541 Super ROM is 100% Compatible * Easily installed in Minutes 




AP ALLO COPIES IT ALL 



APALLO Does it AIL This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 



Copy Unprotected Disk 

Scratch a File 
• rormat a uisk 
At last a complete utility package far the MSD Dun! Drive. This • Change Disk Name * Rename a File 
is the first MSD utility program that does it all. The main ■ Quit • View Directory 
menu options include: _ « .„ „ 
s ure Copy will put all errors automatically on disk: 20. 21, 23, 27 and 29's. 



Copy Protected Disk 
Copy Files 
Format a Disk 
Change Disk Name 
Quit 



$39 



95 



D-C0DER 



• Translates any machine language program into easy- 
to-read English descriptions with complete explana- 
tions oi each command! 

■ Makes complete notations o! alt important memory 

locations accessed by the program! [SID VfC M0S 
KERNAL, etc.) 

• Gives you three ways ot accessing programs: 

1) Will read and list proflrams Irom DISK 

2) Will read and list programs Irom MEM0HVI 

3) Direct user Input (Irom magazines, etc.) 

• Can be used to locate and examine any machine 
language program's protection routines! 

• Can be user) to easily break apart machine language 
programs lor study and examination! 

• Pnnler option lor complete hard copy listings! 

You no longer 
need to be an r 
EGGHEAD to 
read Machine 
Language, 




$1095 




N-CODER $19.95 

the machine 
language manipulator... 

The perfect companion 
program to D-CODER! 

Allows you to easily make changes in ma- 
chine language programs... right on the disk! 

• Pewrite ability allows code to be altered 
and then rewritten directly to the disk! 

• Features sector-by-sector scrolling 
assembly language display ot machine 
language programs! 

• flotation of ASCI! text equibatents for easy 
spotting ot embedded text strings! 

• Handy reference display of all assembly 
language commands and their ML 
numerical equivalents! 

• Byte splitter for easy splitting of decimal 
addresses into low byte-high byte format! 



C-64 
Label Maker 

Choose one to one million labels... 

$14.95 

• On-line Instructions 

• Allows Fall Editing 

• Works with all Standard Printers 

• This Program will even put your 
Disk Directory on Labels for you 



Enclose Ceshitri Check Money Offlcr oi Personal 
CnecK Allow 11 amn 1oi ael ,», ry 2 to ? day» let 
prions orders Canada orders mutl oe in U S 

Dollars. VIS* - MASTER CARD -COD 



Programs for C-6J 



I? 00 S & H on all wgers 



Software Submluloni Invited. 



3 MegaSoft 



Limited 



P.O. Box 1080, Battle Ground. Washington 98604 

Phone (gQ6> 687-5116 • BBS 687-5205 Atter h ou , s Ccn, ou , B , 10 Comou „, 
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TURBO 64 



Turbo 64 will turn your 1541 into a super last and efficient disk drive. Loads 
programs five lo eighl times (aster, works wiih 99% of your basic and machine 
language programs. The master disk allows you lo put unlimited Turbo 64 
toot copies on all your disks. This disk also includes: 

Auto Run Bool Maker 
Auto Run Boot Maker will load and auto run your basic or machine language programs 



$19.95 





$19.95 



OMS-Errors 20,21,22,23,278 29 
Format Single Tracks 
Read Disk Errors 
'/) Track Reader-read and select 
Vi track 

Vi Track Formatter-Formal a 
disk witn Vj tracks. This is 
where the next protection 
schemes are coming from 
Drive Mon-Disk Drive 
assembler (disassembler For 
your 1541. 

The Doc-Disk Doctor lhat reads 
code under errors. 
Sync Maker-Place a sync mark 
on any track out lo 41 . Also 
used (or protection, 
Sync Header-Check (or Sync 
bits on any Irack out lo 41 
Change Drive No, -Changes 
drive number (7-30) 



Disk Logger-Finds starting irack, 

sector. Mad and end addresses 

Olak Match-Compare any two 

diskettes Byte (or Byte 

New Wedge-Easier to use DOS 

wedge. 

(D Check-Check IDs on any 

track. 

Unscrateh-Restore a scratched 

file 

View RAM-Visual display ol Ihe 

free and used sectors on a 

di Skene 

Read/Write Test-1541 

performance test. 

Repair a Irack-Repair a track 

with checksum errors. Reads 

code under errors and restores 

track. 

Fait Form at- For mat a disk in 

just 10 seconds (with verify!), 



5DFTWRP.& 
'HRNDBQDH 



3rd 

Edition 



THIRD EDITION! NOW AVAILABLE! 
I! you're tired of being harassed by protected software and too many copy 
programs, then this is the book (or you! This 224 page manual covers the 
gambit (rom legalilios to protection methods to step-by-step back up pro- 
cedures. Now you can learn both how to protect and un protect software I 
The techniques coveted include copying cartridges to tape or disk, tape pro- 
tecllon, and disk protection. Disk protection covers error no.'s 20. 21 , 22, 23. 
27 and 29 plus single Irack formatting, header modification, header swapp- 
ing, half irack reading and writing, reading and w riling modified bit densities, 
formatting illegal tracks/sectors, sync writing and more! The Third edition ex- 
plains, tells how to detect and how to write them with included software. 
Eleven useful utilities and many protection listings! Our disk analysis programs 
reveal the protection methods used on your originals, A diskette with an soft- 
ware is available for a minimum exira charge. This may not be the bnly book 
your should have tor the C-64, bul it is certainly the one book you should 
not be without! 

C64 Book only S19.95 US 

Book L Disk ol all programs S29.95 US 

Vic 20 book . . . Cart. & Tapes only $9-95 US 

THIS MANUAL DOES NOT CONDONE PIRACY 

'SHIPPING: $2.00 



WAR GAMES 
AUTODIALER 




1-Aute Dial will automatically dial a set ol numbers you choose. 
1-fl.evlew Numben will review numbers that were answered by a computer. 
3-Save Numbers will save numbers wnere a corrpuier answered 
4 -Hard copy of Numbers will print out list of numbers where a computer answered. 
5-LOAD Numbers will load In numbers lo continue where il left off. 
6-Contlnue will pick up dialing where it was interrupted. 



$29.95 



[CARTRIDGE KRACKER 

NOW you can own this unique end powerful too! 
which will allow you to dump the contents of 8K 
and I6K cartridges onto disk! But what's real!/ 
great is lhat you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gefs YOU INSIDE the cartridge! Put 
at! your favorites on disk and get rid of the clut- 
ter. This package provides your with the software 
and hardware needed to get staned. Program on 
disk Included. [Some cartridges require use of ex- 
ternal RAM not included) 




$44.95 



The Original 
Book of Facts 

UNLOCK THE MYSTERIES 
OF THE COMMODORE 
— Simple Instructions 
—Easy slep-by-step examples 
— Tricks you can do your 

first day 
—Introduction to color, sound 

and much more 
—Includes a routine to protest 

your own programs 
—NO MATTER what your 

experience, ihe Original 

Book of Facts is fte __ 

lor everyone! ^6.99 



The Advanced 
Book of Facts 

EXPLORING 
YOUR COMMODORE 

— How to use a machine 

language monitor 
—Tips on how to unprotect 

your software 
—Advanced protection for 

your own programs 
—Full size reference charts 
—How to design your own 

menus and more... _ _ _ _ 

**6n99 



BULLETIN BOARD 

Set up and operate your own bulletin board with one or two disk drives. This 
one has all the features and you can customize it easily yourself. ■ 

9-WRITE OPENING MESSAGE 

10-READ LOG 

11-CYCLE LOG 

12-READ DOWNLOAD FILE 

13-SCRATCH DOWNLOAD FILE 

14- ADD TO OTHER SYSTEMS 

15-CREATE OTHER SYSTEMS 



1-RUN MEGASOFT BBS 
2-CREATE MEGA FILES 
3-ADO TO SYSOP'S CORNER 
1-NEW SYSOP'S CORNER 
S-READ MESSAGES 
6-SCRATCH MESSAGE 
7-CYCLE MESSAGES 
B-READ SYSOP MESSAGES 



$59.95 



Enclose Caihiwt Check Money Ordflf. or Personal 
Che^k Allow 14 days (Or d«i<vary, 2 lo 7 days tor 
phone orders Canada orders must be in U S 
Dollar* VISA - MASTER CARD -COD 



Programs far C-64 



$?00 S & H on an orders 



s MegaSoft 

k¥~\ P.O. Box 1080, Battle Ground, Wa: 



Limited 



Software Subffii«ion» Invited. 



P.O. Box 1080, Battle Ground, Washington 98604 

Phone (206) 687-51 16 • BBS 687-5205 Aler Hours Computer to Co-nooi 
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ISSUE #1-JAN. '84 $4.00 

64 v. the Peanut! Telecommunications! 
Talcs of the Commodore! And ready 
to enter: Multi Draw 64 Graphics Sys- 
tem! Interrupt Music Maker/Editor! A 
Peek at Memory! Sequential Files! 



ISSUE §2 -FEB. '84 $4.00 

Illustrated tour of the 1541! Artificial 
intelligence! Synapse's Ihor Walosenko 
interviewed! And read) to enter; Music 
Maker Part U! Screen Manipulation! 
Night Attack! Relative Files! 



ISSUE #3 -MAR. '84 $4.00 

Anatomy of the 64! Printer interfac- 
ing for VIC & 64! Educational soft- 
ware series begins! And ready to en- 
ter: Address Book! Space Lanes! Ran- 
dom Files on the 64! Dynamic Power! 



ISSUE #4-APR. *84 $4.00 

Pclspeed and Easy Script tutorials! 
Printer interfacing continues! Laser- 
disc! And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! Low- 
er case descenders on the 1525! 




ISSUE #5-MAY »84 $4.00 
Future of Commodore! Inside BASIC 
storage! Memory management on the 
VIC & 64! Spreadsheets! And ready 
ro enter: Math Master! Air Assault! 
Biorhythms! VIC Calculator! 

ISSUE #9 -SEPT. '84 $4.00 

Program your own text adventure! 
Build a C-64 cassette interface! Vid- 
eo RAM! And ready to enter: Salvage 
Diver! DOS! Sound Explorer! Castle 
of Darkness! Base Conversions! 



ISSUE #6- JUNE *84 $4.00 

Game programming column begins! 
Program generators! Rupert on input- 
ting! Menxiry management continues! 
And ready to enter: J>ost Time for the 
64 & VIC! Alpiner! Sound Concept! 

ISSUE #10-OCT. '84 $4J00 

C-64 Graphics programs! Bit- mapped 
graphics! Joystick programming! And 
ready to enter: VIC 40 Operating Sys- 
tem! BAM Read & Piint! Emerald Ele- 
phant of Cipangu! Lawn Job! 



ISSUE #7- JULY W $4.00 

MSD Dual Disk! Database buyer's 
guide! Training your cursor! Screen 
displays! File Sleuth! Users Groups! 
And ready to enter: Renumbering! 
Checklist! Math Defender! Brisk! 

ISSUE #11- NOV. '84 $4.00 

Music programs & keyboards for the 
64! Graphics feature continues! And 
ready to enter: PTE word processor! 
Block Editor! Alternate Character Set 
for the 64! Tunnel of Tomachon! 



ISSUE #8 -AUG. '84 $4.00 
Choosing a word processor! Compu- 
tational wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter: Micro-Minder! Direc- 
tory Assistance! Terrible Twins! 

ISSUE #12- DEC. '84$4.00 

Buyer's guide to printers! 1525 primer 
tutorial! Custom characters! User 
Guide to KM MM Pascal! Diving into 
BASIC! And ready to enter; Construc- 
tion Co.! Space Patrol! Cross Ref! 



ISSUE #13- JAN. "85 $4.00 

VIC/64 OS exposed! Sprites! 154 1 de- 
vice 8 disconnect switch! Ghostbus- 
tcrs! And ready to enter: Ultra Mail! 
Music Tutor! Alice in Adventurelund' 
Midprim! To the Top! 



ISSUE #I4-FEB. '85 $4.00 

Printer interfacing! Multicolor sprites! 
Modems! Bulletin boards! Theory of 
game design! And ready to enter: Fu- 
mrvwiir! Rmtusiu! VIO- Eraser! Insur- 
ance Agent! Tclclink 64! 



Send coupon or facsimile to: 

Ahoy! Back Issues 

Ion International Inc. 

45 West 34lh Street-Suite 407 

New York, NY 10001 

If you have a modem and wanl more com- 
plete information on any of the issues listed. 
call the- ,1/iw.' BBS: 212-564-7727 (as of Ap- 
ril 15: 7!fi-383-89<)0|. 



ISSUE #15-MAR.*85 $4.00 

Making multiscreen gameboards! In- 
side the Plus/4! Commodore DOS! 
And ready to enter: Old Routine! Pro- 
grammable Functions! Automatic Line 
Nos.! Home Budget! Salmon Run! 



ISSUE #16-APR.'85 $4.00 

Assembly language column begins! 
Programming the joystick! 1541 disk 
drive altcrnalives! And ready to enter: 
Hop Around! Faster 64! Bootcr! 
Elecheek! BASIC Trace! Space Hunt! 






Please Send Me The Following: 

Copies of issue number 

Copies of issue number 

- — _ Copies of issue number 



NAME__ 
ADDRESS. 



Enclosed Please Find My Check or 
Money Order for $_ 

(Outside the USA please 

add $1,00 for every copy) 



CITY 

STATE 

ZIP CODE. 



REVIEWS 



WordPro was among the first office 
quality word processors for the C-64. 
Their latest entry. Fleet System 2, 
easily outclasses WordPro, for it 
packs an onboard spelling checker 
and several other distinctive features 
that are handy in an office environ- 
ment. 

Business users will appreciate the 
choice of viewing a 40-, 80-, or 120- 
column display. (The screen scrolls 
horizontally when you're keyboard- 
ing in the wider modes, which are 
excellent for preparing heavily tab- 
ulated reports.) A setup program that 
is run prior to the first time you use 
the word processor allows you lo 
pick the colors of the screen's bor- 
der and background as well as the 
text. Regrettably, the display lacks 
automatic word-wrap. Words get cut 
off at the right column and are con- 
tinued on the next line, which re- 
stricts onscreen readability. There is 
one consolation. When working in 
40-column mode, you can "preview" 
the document and see a vertically 
scrolling 80-column display of the 
document's ultimate appearance and 
the effects of all formatting com- 
mands. (You cannot write and edit 
while previewing, however.) 

While composing this review with 
Fleet System 2, I was considerably 
dismayed to see some of my snappi- 
est sentences abruptly vanish into the 
Twilight Zone. Whenever I pressed 
the return key while the cursor sat 
on an existing line of text, everything 
between the cursor and the right side 
of the screen disappeared. My spir- 
its were soon lifted, however, by the 
discover}' of a feature called the "ex- 
tra text" area, which accommodates 
as many as 450 screen lines of text 
that can be manipulated in several 
practical ways. While learning the 
system, for example, you can load 
a "help" file into this area and flip 
back and forth between your ongo- 
ing document and a list of commands 
and functions and their respective 
keystrokes. Frequently used words, 
addresses, even whole chunks of text 
can be kept here and inserted into the 
ongoing document. This is accom- 
plished by designating abbreviations 
for them in the extra text area. For 



this review, 1 reserved the letters "od" 
to indicate the words "ongoing doc- 
ument." While writing the above sen- 
tences, 1 merely typed the fl key, the 
letter "a" (to indicate 1 wanted to "ap- 
pend" a phrase from the extra text 
section) and the letters "od". Text 
stored here can also be automatical- 
ly inserted into blank space within a 
document, which serves to facilitate 
the rapid planting of personalized 
form letters. 

When you're working in the main 
text area, a status line that looks like 
: X : F : I : S : N : reminds you of 
the current editing mode. The fl or 
RUN/STOP key works like a clutch. 
Press fl and the F lights tips; then 
hit X to enter the extra text area. A 
similar two- or three-keystroke pro- 
cess is also engaged to conduct op- 
erations such as marking a range of 
lines to be copied, erased or funneled 
off to another part of the ongoing 
document. A range is marked by 
moving the cursor down to highlight 
the chosen text, but you can only 
highlight whole lines. If only half the 
line is to be transferred or erased, 
you must use the "paragraph split" 
command to shove the other half 
down lo the next line. This is the 
most awkward aspect of editing with 
Fleet Sysicm 2. Another common 
editing operation, shifting between 
insert and overwrite modes, is swift- 
ly executed by tapping the 13 key. 

Cursor control is limited to hop- 
ping to the top of the screen, begin- 
ning of the document, or down to the 
next line. Of course, you can glide 
freely around the current screen via 
the cursor keys, but cannot skip di- 
rectly to the end of the immediate 
screen or the document, or Hip to the 
next or previous screenload. You can 
"speed-scroll" through the text, but 
this still isn't as useful as the ability 
to flip screens and is also rough on 
the eyes. At least it is easy to delete 
the next word or sentence, in which 
case the program highlights the text 
and offers you a chance to bail out 
before consigning the offensive text 
to extinction. Fleet System's format- 
ting commands look familiar: one or 
more lines contain marks such as lm5 
(left margin is set for five spaces), 



which can be embedded throughout 
a document to change centering, jus- 
tification, and other formatting fea- 
tures. Underlining and other printer- 
supported features can he addressed, 
and you may even indicate Spanish 
accent marks if using a dot matrix 
printer. (Compatible printers are 
listed in the setup program's menu 
and encompass a range of twenty- 
three popular machines including the 
FX-80, TTX, Gemini, Brother, Oki- 
data 82, TP-1 , and the Commodore 
printers.) 

Fleet System's major selling point, 
a 70,000 word dictionary, is on the 
opposite side of the program disk and 
can be accessed without exiting the 
word processor. It rapidly checks all 
the words against this dictionary and 
one created by the user, then high- 
lights all "suspect" words. These may 
be ignored, added to the user diction- 
ary, or corrected on the spot. {The 
user dictionary can hold up to 12,(XX) 
words.) After saving the document 
and exiting lo BASIC, you may avail 
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yourself of some intriguing features 
in the options program. A frequen- 
cy and statistics report will list all 
selected words and the number of 
times they appear. You'll also be in- 
formed of the number of different 
words, average word length, num- 
ber of sentences, and other statistics 
that may or may not be significant 
to you. (You don't have to access this 
program for the most practical such 
option: two keystrokes will instan- 
taneously summon up a precise word 
count at any time.) 

A single document may be up to 
eight or nine pages in length, and 
flics can be linked to simultaneous- 
ly print a document that was broken 
into several files. Saving and load- 
ing files is a simple process, and the 
program supports one or two disk 
drives. Headers, footers, and page 
numbering. Search and Replace, 
mailing labels and other standard fea- 
tures are effectively implemented, 
and Fleet System has a couple of fea- 
tures that are less common. You can 
load sequential files saved by a data- 
base or other program, convenient 
for preparing the data to be used in 
form letters and other mail merge op- 
erations. Numeric tabs simplify 
aligning columns of numbers con- 
taining decimal points. While in nu- 
meric mode, you may add or subtract 
columns of numbers. You can also 
total ail the numbers in a paragraph 
or range of lines, an unusual and 
creative option. 

Fleet System is easy to learn and 
operate. The manual has a lucid tu- 
torial for beginners; old hands will 
prefer to consult the index and flip 
to the appropriate page in the refer- 
ence section. Because the program 
doesn't have enough cursor control 
"shortcuts" and makes range-setting 
a relatively awkward process, it is ill- 
suited for composing term papers, 
essays, or anything demanding inten- 
sive revision. Fleet System 2. with 
numerous features that emphasize 
business-oriented word processing, 
is more valuable in an office where 
the workload includes extensive 
preparation of tabulated and colum- 
nar material. 
Professional Software, Inc.. 51 
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Fremont Street. Needham. MA 
02194 (phone: 617-444-5224). 

—Shay Addams 

SUPER PRINTER UTILITY 
PROGRAMS 

Cardco, Inc. 
Commodore 64 
Disk; $39. 95 

The newest addition to Cardeo's 
Cardware software line, this disk 
contains such nifty entries as screen 
dump utilities, a banner head liner, 
rudimentary word processing and 
mailing list programs, a calculator, 
a screen drawing program, and a 
sprint prim printer buffer. Also in- 
cluded are file conversion, BASIC 
program cross reference. 24K file 
printer buffer, and index generator 
progrmis. On the Hip side is a utility 
for viewing the screen images also 
found on this side of the disk. 
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Sample screen damps. Ahoy! logos 

generated with banner headline utility. 
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The Super Printer Utilities pro- 
gram, the most impressive of the lot. 
allows you to program into the 
C-64's memory specific data about 
the type of printer you're using. It 
also provides several utilities for ex- 
ecuting screen dumps, initializing 
and exiting keyed routines, ASCII 
screen dumps, reverse screens, and 
a host of other useful POKEs and 
SYS commands for using the features 
of the program. Once loaded, the fa- 
miliar "ready" prompt appears on the 
screen, telling you that this data is 
now in memory. One nice feature is 
that you can speeijy- in which block 
of memory you'd like to store this 
printer data and command sequence. 
You're given a choice of $C4(K), 
SC000. $9400, $7400. or $5400. 
This is useful in avoiding "address 
conflicts" when programming in ma- 
chine language. Once you've chosen 
the load address, the POKE values 
and SYS commands for that address 
are displayed. You're also given the 
option of printing this information 
out for future reference, if desired. 
For example, if SC400 were chosen 
as the load address, the correspond- 
ing command list would read: 

Screen Dump {Hot.} SYS 50176 

Inii Keyed Routines ...SYS 50179 

Exit Keyed Routines SYS 50182 

Screen Dump (ASCII) SYS 50185 

Screen Dump (Vert.) SYS 50188 

Reverse Screen POKE 50194. S 

Reverse Character POKE 50195. C 

Force Plug POKE 50196, F 

C KO I Enable POK E 50 1 97 , KE 

Otnput Mode POKE 50198. OM 

Device 8 POKE 50199, DV 

Secondary Address POKE 50200. SA 

Width (Hor.l POKE 50201. W 

Color Mode (Vert.) ...POKE 50202. CM 
User Sereen Enable ....POKE 50203. UE 

Lores Stan Page POKE 50204. t.O 

Hires Start Page POKE 50205, HI 

Color Stan Page POKE 50206. CO 

Prntr Type (ASCII) POKE 50207, FT 

Nun- ASCII (ASCI I (....POKE 50208. NA 
2x2 Color Dots (Vert.).... POKE 5021 1. C2 
4x2 Color Dois (Vert,).... POKE 50243. C4 

Keypad Definitions POKE 50275. KD 

Utility Programs 50417 

Examples of the screen dumps 
possible are shown herewith. Each 
of the image dumps was executed 
with a simple SYS command: one 
problem I encountered, however, 
was the frequent crash of the pro- 



gram when trying to dump more than 
one screen. I was abie to return to 
the selection menu sometimes— on 
most occasions, though, the screen 
would scroll with a^'FORMULA 
TOO COMPLEX ERROR" message 
and I couldn't recover from the crash, 
no matter what I did. This meant I 
would have to shut off the C-64, turn 
it back on, and reboot the program 
from scratch. If it only happened 
once or twice, I wouldn't even men- 
tion it. But since it was the rule rath- 
er than the exception, be aware that 
this program has a definite tenden- 
cy to self-destruct! 

I've also included some dumps of 
the "BANNER HEADLINER" pro- 
gram contained on the disk. You're 
given a choice of "Gothic" or "mag- 
netic" type styles, and a choice of 
short or tall letters. Once these choic- 
es have been made, you may enter 
up to 254 characters of text or punc- 
tuation and dump it to your printer. 
Possible uses for this feature include 
making banners (happy birthday, 
welcome home, etc.) or signs for fly- 
ers (garage sale today, no parking). 

The other utilities are of the "bare 
bones" school. The word processor 
has no refinements whatsoever, nor 
does the mailing list utility. They are 
useful, however, for extremely light 
duties. 

The 44-page instruction manual is 
good as far as it goes, but contains 
an awful lot of ambiguity. A case in 
point is the print-dump command 
listing above. Take a look at the last 
line: "Utility Programs.... 504 17." Is 
that POKE* 50417 or SYS 50417? 
While it may not seem like a big 
deal, if you need to access one of 
these features, typing in a SYS in- 
stead of a POKE may result in a 
crash. Another question unanswered: 
is it possible to dump, say, a play- 
screen from Zaxxoril It probably is, 
but /don't know how -the documen- 
tation fails to make any mention of 
such abilities. 

Users of Cardco's Write Now! 
word processor will like the program 
however, since it includes utilities to 
convert ASCII to Write Now! format 
and vice versa. Additionally, it will 
allow you to convert Write Now! files 



for transmission over a modem. 

AI! factors considered, I was un- 
derwhelmed by the Super Printer 
Utility Programs. The crashes I men- 
tioned and the lack of complete doc- 
umentation made the disk tedious to 
use, and not at all up to Cardco's us- 
ual fine standards. 

Cardco. Inc.. 300 S. Topeka, 
Wichita. KS 67202 (phone: 316- 
267-6525). -Tom Ben ford 

STAR SG-16/I5 PRINTERS 

Star Micronics, Inc. 
SG-IQ: $299; SC-15: $499 

Fve used a Star Gemini 15X dot 
matrix printer for the last two years, 
and come to regard it as a reliable 
workhorse, proven through thou- 
sands of hours of use to be rugged, 
dependable, and flexible for a great 
number of applications. So when Star 
announced its new, improved version 
of the 15X. called the SG-15. I knew 
I had to get my hands on one and put 
it through the paces. 

What Star has done is make a good 
thing even better. All the features of 
the older models have been retained, 
but enhancements have been made. 
Even the throughput speed has been 
increased by a full 20%! The added 
features make the SG-10 and SG-15 
the printers many users have been 
waiting for. 

The\SG-10 and SG-15 arc direct 
replacements in the company's prod- 
uct line for the Gemini I OX and 15X. 
The difference between the two new 
models is the carriage size, the SG- 
10 having a 10" carriage, the SG-15 
a 15". (The one other difference is 
the 15's 16K buffer- see below.) 
Since I often have occasion to use 
spreadsheet software and need the 
wide paper capacity. I chose the !5. 

Externally, the SG-15 looks quite 
similar to its predecessor, the 15X. 
The function controls are of the "soft- 
touch" variety, replacing the push- 
switches of its older brother. That's 
the only obvious physical difference. 
The other improvements are more 
subtle, but they show their worth as 
soon as you activate the printer. 

The Gemini 10X and 15X were 
equipped with 4 DIP switches incon- 
veniently located on the back of the 
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printers. These were used to select 
the resident character set on power- 
up, linefeed on or off, end of paper, 
and other printer functions. On the 
new SG-10 and SG-15, the DIP 
switches have been moved to a more 
accessible location: the left side of 
the printer. But in addition to making 
them easier to reach, 8 DIP switch- 
es have been added to the original 4. 
Why the extra switches? To handle 
the configurations for the enhanced 
functions, natch! And what enhanced 
functions they are. 

The SG-15 comes with a 16K print 
buffer as standard equipment, dou- 
ble the capacity of the earlier Gem- 
ini 15X. This means that the printer 
itself can store up to 16K of infor- 
mation and hold it in memory until 
printed, freeing up the computer for 
other uses while printing continues. 
This humongous buffer proves its 
worth when using word processing 
software or printing out lengthy 
BASIC program listings. An optional 
buffer board is available for the 10. 

Both SG models feature (as did 
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SG-10 & 15: near letter quality. 
READER SERVICE NO. 201 ' 

their predecessors) friction and trac- 
tor feed as standard, allowing you to 
use tractor-feed paper for listing and/ 
or rough drafts as well as single 
sheets for correspondence. These 
new models also allow hex dumps 
and downloadable character sets. On 
internal ROM are internal ional char- 
acter sets for French. German, En- 
glish (Britain). Danish. Swedish. 
Italian, and Spanish. These sets con- 
tain umlauts, pound signs, circum- 
flex letters, and other characters and 
punctuation indigenous to the speci- 
fic language. Additionally, you may 
custom-design your own characters 
and load them into the printer, use- 
ful for including logos and other 
"personalized" touches in your print- 
outs. Of course, the entire graphic 
character set is available for printing 
out listings of your programs exact- 
ly as they were entered. Both the SG- 
10 and SG-15 are capable of printing 
out ultra high resolution bit image 
graphics as well. Several varieties of 
condensed, expanded, and enhanced 
print are also possible on either of 
these models. Of course, the printer 
interface you utilize has a lot to do 
with how many "tricks" the printer 



Normal Star made- 
Bold print sample. 
Near Letter Quality. 

Italic sample. 
Emphasized mode. 
IE ;< pa .si r~i til €3 t=l . 

Condensed print Bade. 
Conde nsed with tin der scar t^ 
Condensed bald print. 



Print samples from SG-10 and 15. 
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will perform, but with the added DIP 
switches, it's easy to get the most out 
of just about any of the popular print- 
er interfaces. Both the SG-10 and 15 
come with Centronics parallel input, 
but either can be had with RS-232 
serial input as an option. 

A few words about the documen- 
tation are in order. The 235-page us- 
er manual is superb, providing infor- 
mation on everything you need (or 
want) to know about DIP switch set- 
tings, control characters and func- 
tions, changing defaults -the whole 
nine yards. The only thing I took ex- 
ception to was the continual mention 
of "IBM mode." The printers have 
two basic operational modes: Star 
and IBM. Either is selected or dese- 
lected by the DIP switches. This is 
to accommodate the broadest possi- 
ble market of users, and apparently 
the folks at Star figure these two 
printers to be hits with Big Blue us- 
ers. Included in the manual are ta- 
bles and pin-out assignments for Ap- 
ple, TRS-80, and CP/M -based com- 
puters, but nary a word for us Com- 
modore folk! Get with it, Star! Don't 
you realize that there are more Com- 
modore 64s out there than the other 
brands combined! 

A host of useful provisions are in- 
cluded in the printers' operating sys- 
tems, such as the capability for su- 
perscripts, subscripts, variable hor- 
izontal spacing control, multistrikes 
for boldface, underlining, and itali- 
cizing. These printers are truly a 
dream to use for word processing 
with the inclusion of these useful and 
powerful features. 

Both of the SG printers use inex- 
pensive multipass two-spool nylon 
ribbons. I've always liked this fea- 
ture about Star's printers, since these 
ribbons are cheap and readily avail- 
able at most stationers, 

I've saved the best and most im- 
pressive feature for last: near letter 
quality (NLQ) printing. As the name 
implies, this mode emulates the print 
image of a daisy wheel printer or tra- 
ditional typewriter. It does this so 
well, in fact, that unless you look 
very close at the printout, you'll think 
it is the product of a daisy wheel 
Print speed is reduced by about half 
in this mode, since the print head 
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makes two passes for each character. 
(The first pass prints out the "normal" 
or draft-mode character, while the 
second pass fills in the open area be- 
tween the dots and embellishes it 
somewhat, adding serifs and other 
finishing touches.) In the past, I've 
used the Gemini for my rough drafts 
and a daisy wheel for the finished 
product. The print quality is so good 
in the NLQ mode that I've become 
a "one printer user" again. Anybody 
want a used daisy wheel printer? 

Star Micronics, Inc., Pan Am 
Building Suite 3510, 200 Park Ave,, 
New York, NY 10166 (phone: 2! 2- 
986-6770). -Tom Benford 

TROLLS & TRIBULATIONS 

Creative Software 
Commodore 64 
Disk; $24.95 
(See screen on page 63) 

Longtime joystick jokers often 
feel there's nothing new under the 
sun. Their problem is that they're 
looking in the wrong direction. A 
look under the street will reveal 



Trolls and Tribulations, Creative 
Software's sewer- based action game 
featuring superb music and graphics 
and a veritable cesspool of activity. 

Your eight-lived troll must trav- 
erse a scrolling multilevel maze, 
shooting cretins and eschewing 
skulls, buzzards, and spiders while 
collecting treasure. Each move must 
be planned with care; blindly leap- 
ing from peak to precipice will send 
your troll plunging into the lapping 
waters below. That is a fate you 
want to reserve for the cretins that 
descent! from above. Your troll's 
shots turn them into eggs which you 
attempt to shove to a watery grave 
before they hatch . 

At the onset, you choose from 
novice, intermediate, and expert 
levels of play by opening the cor- 
responding door. Your troll then en- 
ters the first set of horizontally 
scrolling mazes. Locked doors ap- 
pear at the end of all sections, only 
to be opened by the key which you 
acquire within the maze. Keys and 
treasures arc collected by leaping 



from ledge to ledge or dropping to 
lower shelves. Strategically placed 
trampolines will assist in reaching 
higher levels. Players may at first 
be inhibited by the need to vault 
moving skulls and buzzards while 
within low-ceilingcd tunnels, but 
your troll cannot hit his head. 

While the lower levels arc quite 
masterable, the higher ones will 
prove a true challenge. The progres- 
sion from easiest to hardest is grad- 
ual enough to maintain interest as 
ability increases. 

I do have two bones to pick with 
an otherwise delightful game. First, 
there is no way to bypass earlier sec- 
tions and begin deeper in the maze. 
Second, high score is provided, but 
no means of saving the information 
to disk (the instructions cite mem- 
ory limitations). Who cares about 
keeping track of high score in a 
single sitting? 

Creative Software, 230 East 
Caribbean Drive, Sunnyvale, CA 
94089 (phone: 408-745-1655). 

—Scott Kincaid 




HAVE YOU BEEN DRIVEN CRAZY 
TRYING TO BACKUP YOUR EXPENSIVE 
SOFTWARE? NOW YOU CAN RELAX! 
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VIC & 64 



DITTODISK 64 is a utility program that 
has been tested and found to be capable 
of copying most protected disks produced 
by the major software houses. A notable 
attribute of this copy program is its 
lack of a large manual. There are no 
menus and no disk analysis routines. 
The screen prompts will be all that 
you'll need to get you through 99+% of 
your copying. 



DISK 



Dealers inquiries invited!!! 



ONLY 

$34« 



BE A COPY CAD (CASSETTE AIDED DUPLICATOR) NOW 
VOU CAN MAKE BACKUP COPIES OF ALUTHE COSTLY. 
NONSAVEABLE CASSETTE PROGRAMS YOU BOUGHT. 

OUn BACKUP V1.0 UTILITY PROGRAM WILL LET YOU 
MAKE DUPLICATES THAT nUN. 
BACKUP VI WILL WORK WITH A STANDARD 5K 
UNEXPANDED VIC MEMORY EXPANSION IS REQUIRED 
TO COPY PROGRAMS LONGER THAN 3K BYTES 

ORDERING 
INFORMATION 
ADO M00 PER ORDER 
FOR SHIPPING. 

WE ACCEPT VISA, MASTERCARD. 
CHECKS. MO 
COD ADDW00EX7RA. 

California Residents, Add 6% 
Sates Tax to Orders 



TAPE 

$24.95 



THE BEST 

YOU CAN BUY 



VISA* 



6201 C Greenback Lane 



SOFTWAR€ PLUS 

(9l6) T26-8T93 Citrus Heights. C A 95610 



MasterCard 




V\f:utvt SiTuicc No, 219 
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PFS.FILE 
PFS.REPORT 

Software Publishing Corporation 

Commodore 64 

Disk; File $79.95, Report $69.95 

PFS.File, along with your C-64. 
disk drive, and optional printer, 
forms a fairly full -featured database 
management system. You design the 
record format with full use of cur- 
sor control, delete, and insert keys. 
You have the top 21 lines to desig- 
nate as many as 50 fields. Not 
enough? Hit a key and you get a 



blank screen. More and more -up 
to 32 screens full. Be careful with 
those long record formats, though; 
if you fill out every field in a 32 
screen record, only five records will 
fit on your diskette. Realistically, for 
a simple name and address file, you 
will be able to store about 500 
records. If the addresses arc short, 
you might even store File's max- 
imum of 1000 records on your 
diskette. A "percent full" reading at 
the bottom of the screen will give 
you some idea of how you're doing. 



L« 



New Technological Breakthrough ! 

. ULTRABYTE 
1 DISK NIBBLER 



The Ultimate Bit by Bit Disk Duplicator 
For The Commodore 64 and 1541 Disk Drive 



ULTRABYTE DISK 
ALL SOFTWARE 



NIBBLER COPIES 
EXCEPT ITSELF 



SATISFACTION GUARANTEED 



Return for refund within 10 days 
if not completely satisfied 



$ 3Q_95 



Introductory Price 



plus $ 3.00 Shipping and Handling 

MASTERCARD, VISA, CHECK, or M.O., 

Foreign Orders or COD Add $ 2.00 

Calif. Add 6.5 to ( $ 2.60 ) Sales Tax 

BACKUP COPIES | 20.00 PLUS $ 3.00 SHIPPING 



Based on new proprietary Disk Operating System [DOS) that 
reads and writes bits on the disk independent of format. This 
process, called nibbling, treats disk errors, extra sectors. 
renumbered tracks and other protection schemes exactly the 
same as ordinary data. 

• Simple to use. Just load and run 

• Fast. Copies entire disk on single 1541 in 8 minutes 

• One easy step. No separate analysis or error production 

• Uses revolutionary Track Scan Technology to make 
an exact replica of the original disk. 

Write or Call 24 Hour Order Line 

ULTRABYTE ( 818 ) 796 - 0576 
P.O.Box 789 La Canada, CA 91011 

Reader Service No. 233 



SOFTWARE AUTHORS PLEASE WRITE 



From File's main menu, you can 
choose to design a new format or 
change an old one, add data, search 
through the records you have 
entered and update those with 
mistakes, print or delete records in- 
dividually or in groups, or return to 
BASIC. As you work to create the 
perfect design for your records, use 
the Insert function cautiously. The 
Clear key is right next to the Insert 
key; hit Clear and all your design 
work will disappear. The designers 
of File should not have made clear- 
ing the screen so simple. When you 
design your second database, with 
a different record format, you will 
need to use a new diskette, if you 
have lots of short lists to keep. File 
can eat up your blank disks. And 
don't forget to format those blank 
data disks before you load File; it 
has no capability to format them for 
you. 

When you want lo search for a 
particular record. File can match as 
many fields as you specify. You can 
ask for an exact match (full first and 
last name), a partial match (a word 
or characters in the middle of an en- 
try), a range of numbers (all zips 
from 32900 to 32950), or a "not" 
match (all records that do not match 
the search specifications). Searching 
for a record based on the contents 
of the first field will never take more 
than three seconds. Use any other 
field and the search may take much 
longer. File does not allow you to 
save your search specifications to 
disk. 

Getting a printout of your records 
is easy. First tell File which records 
to print using the same options that 
are available for a search. Then tell 
it which fields to print from each 
record and whether to print each 
field on the same line or a new line. 
This option allows you to print mail- 
ing labels; however, since File can 
only print fields in order, the possi- 
ble formats for your records are 
limited. File can sort as it prints, but 
it can only sort on one field. File lets 
you store up to eight print formats 
including search specifications that 
you can use or edit at a later time. 
A critical feature of any database 
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Quality For Your Commodore 64 



ORDER BYPHONE AND WE PAYFOR YOUR CALL! 

TO ORDER CALL 612 922-0516 • $1.50 OFF EVERY PHONE ORDER 




The printer enhancer and full spooling buffer for the 
Commodore 64'". 

■ Gives you control of your printer while printing 

■ Enhances the speed of your printer 

■ Provides the 1525 and 801 printers with true 
descenders and underlining 

SPECIAL $19.95 

D-TERm 

■ Fully Menu Driven 

■ Auto Answer - Auto Dial - completely supports 
modems of this type 

■ On Line Printing - enables you to print while the 
computer is in terminal session 

■ Full uploading and downloading -enables you to 
send files to and from the disk over the phone 

NOW ONLY $29.95 

GRAPHIC PRINTER CADLE 

The Graphic Printer Cable is the truly universal 
graphic parallel printer interface for the Commodore 
64™, S x 64™, and Vic-2CT computers. 

■ For virtually all Centronics-Parallel Dot Matrix 
Printers 

■ An intelligent 2k buffer is standard 

■ Software Configurable allowing Commodore'" 
printer emulation 

External printer selection switches 

NOW ONLY $89.95 



The fastest, most reliable and easiest-to-use copy 
prograam for the Commodore 64'". 

Contains a TRUE INTELLIGENT NIBBLER which 
copies all the information on a disk and even the 
newest copy protection including half tracks and 
track 36 + 

FULLY AUTOMATIC! There are no parameters to set. 
You don't even need to swap disks when using two 
drives. 

REVIRGINS DISKS rather than erasing them, and 
also contains a utility that automatically backs up 
any data disk and removes all data errors in just two 
minutes. 

NOW ONLY $39.95 

Seven day money back guaranteed. 

D-maoEm 

The 100% 1650 compatible modem. Order it with 
Q-Term and get both for only $69.95 
Seven day money back guaranteed. 

STARSG-10™ printer 
with GPC ONLY $339.00 

Star SG-10 features: 

■ 120 CPS bidirectional-logic seeking printer 

■ Full graphic-word processing features! 

■ Near letter quality mode! 




One West Lake Street Suite 320 

Minneapolis, MN 55408 

(612)922-0516 

Reader Service No 216 



is the ability to redesign you data 
files. Inevitably, you will want to add 
a field to each record, rearrange the 
fields, or delete an unnecessary field 
to make more room on the disk. File 
handles all these changes with no 
problem as long as your disk is less 
than 50 percent full. It is a pleasure 
not to have to retype dozens of 
records just because you have chang- 
ed your mind about layout. File can 
only redesign four pages at a time, 
so a five page form will require two 
passes. And redesigning a form is 
slow, oh so slow. 

One caveat- any new fields that 
arc to retain their data must have 
labels identical to the old fields. File 
does something strange when you set 
up your labels {or field names); each 
one must end with a colon. When 
reorganizing a database, File mat- 
ches every character between one 
colon and the next. If you have us- 
ed a row of dashes to break your 
form into upper and lower halves. 
File will think those dashes are part 



of the label which follows them. This 
"feature" means you may want to be 
very careful (read: avoid) using a 
heading or any other text that is not 
actually a field name. 

Records can be deleted individ- 
ually during a search or in groups. 
Give File a set of search spec- 
ifications and tell it to delete; your 
data will disappear and free disk 
space will reappear. File numbers 
your records consecutively as you 
enter them. When some records are 
deleted, the others are not 
renumbered. Only if you redesign 
the form will the numbering be 
consecutive again. But after a 
redesign the records are numbered 
in reverse order, so you wil have to 
redesign the database twice to have 
the latest records numbered highest. 

File has no number crunching 
capability and only limited printing 
options. Get your wallet, here comes 
PFS: Report. Report takes your File 
database and lets you design and save 
up to eight report formats. A report 
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Overview of FONTMASTER 
word processor features: 

1) Powerful block manipulation 
commands (Cut, Paste, Move. Overlay}. 

?! User ■ friendly effects include (fonts, 

supensub scripts, underlining, bold lace, 
etc.) 

3) Up to eight different fonls can be used 

simultaneously. 

4) Many printing options such as page number- 
ing, litres, word-wrap, right justification, and 
more. 

5) Eight disk I/O commands ISa«e, Load, Verify, 
Erase, Etc.). 



Create Your Own or choose from over 15 type styles provided In this 
unique program. 

Including: Gauhous English 
Bleak Italic 
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(913)827-0685 
3010 Arnold Road Salina, KS 67401 
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organizes your fields into columns 
and prints them in spreadsheet for- 
mat. You can choose up to 20 fields 
to be printed as columns. Based on 
the contents of the first and second 
columns, Report can sort your data 
in ascending alphabetical order (A 
to Z) or in descending numerical or- 
der (1000 to 0). Report has a very 
powerful feature that lets you sort 
data based on key words in any one 
field. This could really automate a 
research project; like redesigning a 
form, though, it is slow. 

Whatever page title you specify 
will be printed on each page of the 
report. The heading for each column 
will be the label of the correspon- 
ding field unless you specify some 
other heading. Report can give you 
the total, count, or average of any 
numeric column. Additionally, it can 
calculate subtotals, subcounts, or 
subavcrages each time the entry in 
column one changes. If you just want 
the bottom line. Report will print a 
summary with totals only. 

If that's not enough. Report can 
also calculate across rows. Say your 
inventory list has entries lor price 
paid and selling price. Report can 
generate a column that shows profit 
(based on those two entries) for each 
inventory item. Up to three such 
"derived" columns can be contained 
in any report. Report, unlike File, 
will let you print columns in any or- 
der; they do not have to be in the 
same order as the fields in your 
database. 

The manuals for File (24 pages) 
and Report (63 pages) are in the nice 
6'/2 by 8" wi rebound format that lays 
flat on your desk. The chapters 
match the programs' menus, and 
each chapter combines a tutorial 
with reference information. Each 
manual contains a quick guide that 
you can use to refresh your memory 
once you have learned the program. 
Screen representations rather than 
actual pictures are used, so the il- 
lustrations are not identical to what 
you'll see on the monitor. All the 
programs' error messages are ex- 
plained, but this is hardly necessary 
Continued on page 84 
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CCMMODAME5 



PROGRAMMING CHALLENGES 




By Dale 

ach month, we'll present several challenges 
designed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Cotnmodcires , c/o Ahox! 

P.O. Box 723 

Bethel, CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identity the Name and Number of the problems 
you are solving. Also show sample runs if possible, 
where appropriate. Programs on diskette are welcome, 
but they must be accompanied by listings. Also tell what 
makes your solutions unique or interesting, if they are. 
You must enclose a stamped, self-addressed envelope 
if you want any of your materials returned. 

Your original programming problems, suggestions, 
and ideas are equally welcome! The best ones will be- 
come Commotiares. 



Problem §17-1: Decimalizing Dates 

This problem was suggested by John Immarino (Hack- 
ensack. NJ). Write a short program to convert the string 
form of a date into a numerical decimal value. For ex- 
ample, if the user enters 1/1/85, the computer returns 
1985.0000. Since mid-year is around July 1. if the user 
enters 7/1/83, the computer returns 1983.5000. John 
points out that these decimal values would be easier for 
performing calculations involving lime periods than the 
string versions arc. He also reminds you to adjust for 
leap years! 



Rupert 

assignment statement whereas the MIDS function appears 
on the right. 

Your challenge is to write a subroutine to simulate 
the MIDS statement. The syntax is this: MID$(X$.S.N) 
= Y$. The result is that some or all of XS is replaced 
by some or all of Y$. Specifically, the first N charac- 
ters of Y$ are substituted for characters in XS starting 
at position S of XS. The length of X$ must not change. 
The value of YS is unchanged. Some examples should 
help. 

Initially XS = "RUN" and YS="GO". S and N are as- 
signed the following values before your subroutine is 
called. The value of XS upon returning from your sub- 
routine is shown. 





N = or N>1 


N = l 


S=l 


GON 


GUN 


S = 2 


RGO 


RGN 


S = 3 


RUG 


RUG 



N may range from to 255, and S may range from 1 
to the length of XS. If N is greater than or equal to the 
length of YS or if N is 0, then all of YS will be used 
(with the stipulation that the length of XS will not change). 

Problem §17-4: Number Speller 

The user enters a number between one and one thou- 
sand, and the computer spells that value. For example, 
if the user enters 12. the computer displays "twelve." 
If the user enters 235. the computer returns "two hun- 
dred thirty five." Anyone submitting thousand-item 
DATA statements will be sent to the back of the class. 



Problem §17-2: Printer Sentinel 

Here's a problem sent by R.W. Kobcr (Buffalo. TX). 
Write a subroutine to determine whether or not the print- 
er is turned on. If the printer is on. the subroutine re- 
turns immediately. If the printer is off, the subroutine 
displays a message such as The Printer Is Not On." The 
subroutine waits until the printer is turned on, at which 
time it returns to the main program. This should be a 
tidy, unimposing subroutine. 

Problem §17-3: MID$ Statement 

Some versions of BASIC contain a MIDS statement. 
Commodore BASIC allows only the MIDS function. The 
difference is that the MIDS statement (pronounced "mid- 
siring") appears on the left side of the "=" sign in an 



First this month, a correction to the centering func- 
tion described in the January 1985 edition of Commo- 
dores. The correct definition for FNCE is DEF 
FNCE(X)=INT(20-X/2). Type X=LEN(AS) : PRINT 
TAB(FNCE(X) ); AS to print A$ centered on the cur- 
rent (40-character) line. Thanks to Milton Powell and 
Daniel Miller for pointing this out. 

As promised last month, we have solutions to Prob- 
lem #16-2: Quick Decimal from the originators of the 
problem. Programs from Jim Speers (Niles, Ml) and 
John Pragcr (Bay City. MI) arc listed below: 

1 REM PROBLEM #16-2 : QUICK DECIMAL 

2 REM SUBMITTED BY JIM SPEERS 

3 REM 

10 INPUTN$:F0RI=1T04:A=ASC(MID$(N$,I,1)) 
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-48:T=T+16 A (4-I)*(A+7*(A>9)):NEXT:PRINTT $ 



1 REM PROBLEM #16-2 : QUICK DECIMAL 

2 REM SUBMITTED BY JOHN PRAGER 

3 REM 

10 INPUT H$:N-0:ULEN(H$):FOR J=l TO L:A 

$=MID$(H$,J,1) 

20 K=VAL(A$)-(A$>"9")*(ASC(A$)-55) ;N=N+K 

*16*(L-J): NEXT: PRINT N 

Jim's solution has the advantage of being a one-liner, 
but lour hex digits must always be entered. John's pro- 
gram allows hexadecimal values of any length to be en- 
tered, at the expense of an additional program line. 

By far the most popular Commodore in January was 
Problem #13-1: Starred String. The two most general 
categories of solutions are a) screen and printer compat- 
ible and b) only screen compatible. Programs which used 
cursor movements are of course not usable for direct 
printer output. The award for most unusual solution goes 
to Michael Hommer (Waukee, IA) for his program writ- 
ten in COMAL. Here's what it looks like: 

INPUT AT 2,4,35: "type in the string : " 

; instr$ 

star'string(instr$) 

// Procedure 

PROC star'string(instr$) 

DIM star$ OF 40, string$ OF 40 

string$:="* "+instr$+" *" 

star$:="" 

FOR i:=l TO LEN(string$) DO star$:+"*" 

PRINT star$ 

PRINT string$ 

PRINT star$ 

ENDPROC star' string 

The first line prompts the user for an input. The sec- 
ond line executes the "star string" procedure which is 
defined in the following lines. The FOR-DO statement 
does not extend past the end of its line. The program 
logic should be easily understandable with a little study 
even for those who are not familiar with the language. 
Interesting solution, Michael. 

Examples typical of most other submissions are listed 
below: 

1 REM PROBLEM #13-1 : STARRED STRING (SC 
REEN ONLY) 

10 INPUT A$: PRINT" [DOWN]* "A$" *":F0R X= 
1 TO LEN(A$}+4: PRINT" [UP] [UP]* [DOWN] [DOW 
N] [LEFT]*";: NEXT 

1 REM PROBLEM #13-1 : STARRED STRING (PR 

INTER/SCREEN) 

10 INPUT A$:F0R X=l TO LEN(A$)+4:X$=X$+" 

*": NEXT: PRINT X$: PRINT"* "A$" *": PRINT X 
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Both of these programs are one-liners if you use ab- 
breviations and omit spaces. Variations on these themes 
involved using MID$ and LEFTS, and some programs 
called a star-printing subroutine. To give credit where 
it's due, here is a pscudo-randomly arranged list of read- 
ers with workable solutions to this and some of the other 
problems: 



Jimmy Totcn (Hawthorne. CA> 
R.W.'Kober (Buffalo. TX) 

Milton Powell (Portsmouth, NH) 
Daniel Miller (New York. NY) 
Kenneth Karow (Chicago, IL) 
Eric Biberliofer (Dundas. ONT) 
Dave Patterson (Sun Jose, CA) 
Heike Hamacher (Tulsa, OK) 
Dan Berger (Marshfield. Wl) 
Fred Randall (Uxbridge, MA) 
Stephen Vanderhoof (Albany, NY) 
Mark Harris (Blue Springs, MO) 
Jim Root (Whimore Lake, MI) 
Richard Bcrtke (Penyville, MO) 
David Wright (New Britain. CT) 
Arnie Friedman (Great Neck. NY) 
Garrett Kearney (Clay. NY) 
Alan Christman (Romeo. Ml) 
Bill Imrisek (Bancroft, ONT) 
Brian Wilcox (Coldwaler, OH I 
Shawn K. Smith (Brims, NY) 
Tim Slonis (Cranhury, NY) 
Mike Bouska (Williamsburg. KS) 



Greg Smisek (Lonsdale, MN) 
Marcus Cooper. Jr, (Mililani. HI) 
John Immarino (Hackcnsack. NJ) 
Greg Sheppard (Taeoma. WA) 
Michael Hooper (Tyler. TX) 
Harold Hughes (Robstown, TX) 
Ronald Sipe (Cincinnati, OH) 
John Bucy (Belpre. OH) 
Douglas Gristina (Florence, AL) 
Barry Friedman (No. Miami, FL) 
Steve Liggett (College Park. GA> 
Kun Huebner I Anchorage , AK) 
John Pragcr (Bay City. MI) 
James E. Borden (Carlisle, I'A) 
Todd Growney (Livingston. MT) 
Thomson Fung (San Diego. CA) 
Jon Phillips (Sierra Vista. A/.) 
Charles Foreman (Dayton. TX) 
Adolpbo Rodriguez. (Newark, NJ) 
Robert Rice (O.ik Park. MI) 
Doug Chapman (Belleville, KS) 
David Handworker (Davison, Ml) 
Jeff Lambert (Honesdale, PA) 



Your letters indicate you enjoy solving the Commo- 
dores, Occasionally readers ask for more challenging 
problems. Our goal is to present problems which can 
be solved with short to moderate-length programs for 
people with a wide range of interests and abilities. As 
always, if you have a problem that you have solved or 
would like solved, submit it so that we might dare the 
rest of the world to try it. Commodores will be as chal- 
lenging as you make them. 

Problem #13-2: Auto Run brought some hints, tips, 
and solutions from R.W. Kober (Buffalo, TX), James 
E. Borden (Carlisle, PA), Antoine Alary (Montreal, 
QUE), Todd Growney (Livingston, MT), Jim Zdunic 
(EastLeroy, Ml), Richard M. Bcrtke (Perryville. MO), 
and William H. Fossett of Hacker's Hardware (P.O. Box 
7933. San Diego. CA 92107). 

Jim Zdunie's program listed below is used for auto- 
loading the next program from tape. After typing and 
saving his program, you activate it by typing RUN, 
NEW, and then SYS 7669. From then on, the next tape 
program will be automatically loaded and run whenever 
you type SYS 7669. 

1 REM PROBLEM #13-2: AUTO RUN (FOR TAPE) 

2 REM SUBMITTED BY JIM ZDUNIC 

3 REM 

10 FOR A=7669 TO 7679: READ B:P0KEA,B:NEX 
T:END 

20 DATA 169,1,141,198,0,169,131,141,119, 
2,64 
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ATTENTION COMMODORE 64 OWNERS 
DID YOD DUY THE WRONG PRODUCT? 



WE'LL PAY YOU FOR YOUR MISTAKE! 



PRINTER INTERFACE BLUES 



No graphics, doesn't work with your software, Bad aspect ratios, no 
available buffer, well you wouldn't have these problems with the Micro- 
World M W-350. We'll give you $59. off the list price of $129. for that 
strange interface that's causing you trouble. 



LAST YEARS BACK UP SOFTWARE 



Everyone has Back-up software that reproduces errors, but will it back up non-standard 
sectors, reproduce density frequency alterations alter the number of sectors, copy single 
sync bits, and reformat a single track? We don't think so. Send your antique back and 
reeieve 525. credit toward the "New Revised Clone Machine" at S49.5I5. We've added an 
MSD dual drive Clone Machine also available for only $39 J&B, Upgrade your products to 
the latest state of the an today. 

Other software products available from Micro- W Include: Mr. Tester diagnostic software. 
Fantastic Filer data base and report generator, Screen Dumper 64, Font Factory/Sign 
writer for custom type and .lot -A- Word educational software, watch for our S 49 MID! 
interface that will connect vour Commodore 64 to musical instruments. 



CALL - 201 - 838-9027 MJFFqT^^ 
or write us at distributing, inc 

NOTE Micro Wiesetves the light to cane*l this ollm it jny unit.- without ruitice 



1342B Route 23 
Butler, NJ .07405 





Dealer Dist. Inquires 
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Reader Service No. 227 




Call us the modern way— 

on Ahoyrs Bulletin Board System! 

II your computer is equipped with a modem, you can call Ahoyfs Bulletin Board System any hour 
of me day, any day of the week to exchange electrons mail with other Commodore users or download 
files like the following: 



■ Editorial calendar lor 
upcoming issues 

• Excerpts from future edi- 
tions of Scuttlebutt 



Corrections lo programs 
and articles 

i Detailed descriptions 
of back issues 



• Program disk and 
subscription information 

• Classified 
advertising 



Set your modem for 300 baud, full duplex 
System Configuration 



, no parity, 1 stop bit, 7 word length, and dial away! 
of Ahoy! Bulletin Board System: 



C-64 and 1650 Automodcm 

Commodore Business MSChlnM 
1200 Wilson Drive 
West Chester. PA 19380 
Phone: 215431-9100 

CSS Monitor Stand 

Computet Support Services 
PO. Box 927 
Senla Barbaia. CA 93102 
Phpne; 61 9- 968- 3040 



MSD SD-2 Dual Disk Oilva 

MSD Systems, Inc. 

10031 Monroe Street -Slo 208 

Dallas. TX 75229 

Phone: 214-357-4434 

Supetstand I 

A World of Plastic, Ltd. 

2S35 United Lane 

Elk Grove Village. IL 80007 

Phone: 312-860-2525 



Impact Printer 

Fide lily Electronics, Ltd. 
6600 N.W, 361 ll Sire 1 
Miami, FL 33178 
Phone: 305-594-1000 

Unl-Kool C-100 

Unl-Kool 

909 Williamson Loop 
Grants Pass. OR 975Z6 
Phone; 503-476-1650 



Vertex 1 BBS Softwaie 

Event Horizon Corporation 
Bo* 1327, New Yoik, NV 10028 
Phone 212-535-0697 (voice) 
212-988-4539 (data) 

Elect ip Computei Pad 
Charleswater Products, Inc. 
93 Border Slreel 
West Nowlon. MA 02165 

Phono: 617-964-Q370 



Sakata SC-100 Coloi Monitor 
Sad al a USA. Cm p oration 

651 Bonnie Lane 

Elk Grove Village, IL 60007 

Phona: 312-593-3211 

Computer Stands #5933 & »0640 

Royal Sealing Coiporalion 
P.O. Bon 753 
Cameron, TX 76520 
Phone: 817-697-6421 



NEW NUMBER (AS OF APRIL 15): 
718-383-8909 



If you use the Wedge with your disk system, you may 
autorun a BASIC program by typing "|UP ARROW] file- 
name" where [UP ARROW] is the key next to the Re- 
store key. James Borden and Antoine Alary pointed out 
that you may type the following to autorun a BASIC pro- 
gram without the Wedge; 

LOAD "[FILENAME]", 8 : [SHIFT-RUN /STOP] 

The program below from Hacker's Hardware is the 
most versatile and easiest to use for creating a BASIC 
autoloader Hie. The user specifies the loader's name (for 
example, LDR) and the name of the BASIC program 
to be loaded (Tor example, TEST). Then the program 
creates the file LDR and puts it on the same disk as 
TEST. To autorun TEST, enter LOAD "LDR", 8. 1 or 
using the Wedge, simply enter %LDR. 

5 REM — CREATE AUTO-RUN LOADER — 

10 REM COURTESY OF HACKER'S HARDWARE 

20 INPUT"LOADER NAME";LN$ 

30 INPUT"NAME OF PROGRAM TO L0AD";B$ 

40 IF LEN(B$)>16 THEN END 

50 IF LEN(B$)=16 THEN 70 

60 B$=B$+CHR$(160):G0T0 50 

70 OPEN 1,8,2,LN$+",P,W" 

80 READ X%:IF X%=256 THEN 100 

90 PRINT01, CHR$(X%);:G0T0 80 

100 PRINT#1,B$;:IF B$= m, THEN CL0SE1:END 

110 B$="":G0T0 80 

120 DATA 187,2,169,15,166,186 

130 DATA 160,0,32,186,255,32 

140 DATA 192,255,169,16,162,240 

150 DATA 160,2,32,189,255,169 

160 DATA 0,32,144,255,32,213 

170 DATA 255,134,45,132,46,169 

180 DATA 15,32,195,255,32,83 

190 DATA 228,32,89,166,32,51 

200 DATA 165,32,142,166,76,174 

210 DATA 167,256,139,227,187,2,256 

Mr. Fossett invites readers to contact him at the ad- 
dress above if you are interested in an explanation as 
to how the program works. Several readers did some 
serious work on this problem. 

There were basically two groups of solutions to Prob- 
lem it 13-3: Micro Cah: those that POKE 631 and those 
that don't. (The 631 refers to the first location of the key- 
board buffer, for those of you who haven't memorized 
the memory map of the C-64.) First of all, some of you 
may have wondered, as did Michael Hooper (Tyler, TX), 
why would anyone want a program like this when the 
computer already performs calculations very simply in 
the immediate mode? The answer is that this was' in- 
tended to be a parsing problem, a task frequently en- 
countered in writing compilers and computer languag- 
es. Although it took some serious work and some cle- 
ver programming to create some of the keyboard "buf- 
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ier-stuffer" solutions, those programs don't provide much 
insight into the parsing problem. Certainly no one would 
type or load a program to accomplish a task they could 
do without a program. 

The shortest example of a solution using the keyboard 
buffer was from Michael Honimer (Waukee, IA). The 
essence of this type of program is to POKE keystroke 
ASCII values into the keyboard buffer which begins at 
location 63 1 . The number of keystrokes waiting in the 
buffer is POKEd into location 198. Once the BASIC pro- 
gram is run and returns to immediate mode, the com- 
puter reads the keystroke data from the buffer, just as 
it would if you had pressed those keys. 

1 REM PROBLEM #13-3:MICR0 CALC 

2 REM SUBMITTED BY MICHAEL H0MMER 

3 REM 

5 INPUTA$:A$="?"+A$:PRINT'V':PRINTA$:M=6 
31:C=145:P0KEM,C:P0KEM+1,C:P0KEM+2,C:P0K 
EM+3,13:F0KE198,4 

The 145's correspond to f CURSOR UP] keystrokes 
and 13 is the ASCII value of the [RETURN] key. Other 
readers" solutions of this type included fancy color chang- 
es to hide intermediate output on the screen. If you 
haven't tried programming like this, you're in for some 
fun and interesting possibilities. Combine these keyboard 
buffer ideas with the autorun programs above, and your 
computer could get along without you for days at a time. 

Parsing is the process of breaking the input sequence 
into its components and identifying or arranging them 
so that the desired operations can be performed. Shawn 
K, Smith (Bronx, NY) and Greg Smisek (Lonsdale. MN) 
sent similar solutions as listed below. Theirs were the 
most compact programs. Other readers took somewhat 
the same approach. 

1 REM PROBLEM #13-3: MICRO CALC 

2 REM SUGGESTED BY GREG SMISEK 

3 REM AND ALSO BY SHAWN K. SMITH 

4 REM 

10 INPUT ,, EXPRESSION ,, ;C$:F0RX=lT0LEN(C$) : 
X$=MID$(C$,X,1) 

20 IF X$="+" OR X$="-" THEN C=C+VAL(N$): 
N$="" 

30 N$=N$+X$:NEXT:PRINT"THE ANSWER IS ";C 
+VAL(N$): PRINT: RUN 

James Dunavant (Gainesville, FL) convened the key- 
strokes into their BASIC tokens and POKEd them di- 
rectly into his BASIC program following a PRINT state- 
ment. Perhaps the most expandable approach is this one 
from John Prager (Bay City. MI). 

1 REM PROBLEM #13-3: MICRO CALC 

2 REM SUBMITTED BY JOHN R. PRAGER 

3 REM 
30 PN=1 



40 GET A$:IF A$= ,,M THEN 40 

50 IF A$>="0" AND A$<="9" THEN N=N*10+VA 

L(A$):CR=1: PRINT A$;:G0T0 40 

60 IF A$="-" AND CR THEN GOSUB 120:PN=-1 

:GOTO 40 

70 IF A$="-" THEN PRINT A$;tPN=-PN 

80 IF A$="+" AND CR THEN GOSUB 120;PN=1: 

GOTO 40 

90 IF A$="+" THEN PRINT A$;:G0T0 40 

100 IF A$OCHR$(13) THEN 40 

110 GOSUB 120:PRINT"THE ANSWER IS ";S;'\ 

": PRINT: RUN 

120 PRINT A$;:S=S+N*PN:PN=1:N=0:CR=0:RET 

URN 

John's solution properly handles an input such as "-2". 
If you want to test the flexibility of your approach to 
this problem, see how easily you could modify your pro- 
gram to properly handle multiplication as well as addi- 
tion and subtraction. 

Problem #13-4: Dam Lister was also a good parsing 



problem. The solution from Fred Randall (Uxbridge, 
MA) is listed below. His program is typical of several 
other readers" approaches to this one. 

10 REM PROBLEM #13-4: DATA LISTER 

20 REM SOLUTION BY FRED RANDALL 

25 REM 

30 N=20:DIM D$(N) 

40 FOR J=l TO 20:D$(J>CHR$(64+J):NEXT 

50 INPUT"+VIEW WHICH DATA";V$ 

60 L=LEN(V$) :X=VAL(V$) :X$=STR$(X) : Y=LEN( 

X$)+1:Y$=MID$(V$,Y,L):Z=VAL(Y$) 

70 IF L=LEN(X$)-1 THEN PRINT D$(X):END 

80 IF Z=0 THEN Z=N 

90 IF X<0 THEN Z=ABS(X):X=0 

100 FOR I=X TO Z:PRINT D$(I):NEXT 

We have room for one final micro-challenge. When 
are spaces mandatory for proper syntax in a BASIC pro- 
gram? Never, you say? Think about it. See you next 
month with a new round. Li 
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Continued from page 22 

string you want PRINTed. converts the ASCII charac- 
ters to screen display codes, goes to screen memory, 
finds the current cursor position, and stores each char- 
acter code in the correct address. It does it all automa- 
tically, far faster than you could do it by POKEing the 
screen codes into memory yourself. 

But. as you know, part of that string can include "col- 
or" characters. For instance. CHR$(5) is the code for 
the color white. If you PRINT CHRS(5), every character 
PRINTed after that will appear white. 

Yet there is no screen display code for "white." just 
as there is no screen display code for any of the other 
command characters, like carriage returns, cursor move- 
ments, or inverse on-off. These command characters are 
like a mini-language, telling the PRINT command what 
you want done with subsequent strings. 

When you use a color command character. PRINT 
takes it as an instruction In PRINT all subsequent char- 
acters in that color. 

But where is color controlled? It can't be controlled 
in screen memory, since there are 256 possible charac- 
ters (include inverse characters) that can be coded. All 
eight bits of each address of screen memory are used 
just to determine which character will be displayed - 
there is no bit left over for color. 

Instead, color has its own map, which corresponds 
exactly with screen memory. In the 64. color memory 
starts at location 5.5296 and includes all 1000 bytes 
through location 56295. In the VIC with less than 8K, 
color memory starts at 38400 and extends through 38905. 
(Expanded VICs find color memory at 37888 through 
38393.) 



When you PRINT a red Q in the upper left-hand cor- 
ner of the screen, with the command PRINT CHR$(3 1 ) 
"Q'\ BASIC goes to the first address in screen memory 
and stores the code for Q. Then it goes to the first ad- 
dress in color memory and stores the code for red. 

This is why the 64 can have a different foreground 
color for every position on the screen. Any position can 
be displayed in any of the 16 available colors, because 
each screen position has a character code in screen mem- 
ory and a color code in color memory. 

To sec how this works, try this simple program. Line 
10 fills the screen with random characters: line 20 fills 
color memory with random colors. Here is the 64 ver- 
sion: 

10 SM=1024:F0R I=SM TO SM+999:P0KE I, INT 

(256*RND(9)):NEXT I 

20 CM=55296:F0R I=CM TO CM+999:P0KE I, IN 

T(16*RND(9)):NEXT 

30 GOTO 20 

And here is the unexpanded VIC version (for expanded 
VICs, change the value of SM to 4096 and CM to 37888): 

10 SM=7680:F0R I=SM TO SM+505:POKE I, INT 

(256*RND(9)):NEXT I 

20 CM=38400:FOR I=CM TO CM+505:P0KE I, IN 

T(16*RND(9)):NEXT 

30 GOTO 20 

Notice that because we POKEd the characters into 
screen memory, we could use the lower right-hand cor- 
ner of the screen. The PRINT command automatically 
scrolls the screen display when a character is PRINTed 
in that position, but POKE, slow as it is, has the virtue 
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of leaving the rest of the screen alone when it puts a 
character there. 

Now. you can easily see how we can accomplish high- 
lighting certain positions on the screen without disturbing 
what is PRINTed there. We simply change the colors 
of that row in color memory, and regardless of what 
characters are coded to appear on that row in screen 
memory, they will have the color wc assigned them in 
color memory. 

That is how the example program Menu works. The 
options are PRINTcd on rows 5, 6, 7. 8, ami 9, all start- 
ing at the fourth character from the left. No option is 
longer than 16 characters. So the movement routine 
tracks five different addresses in color memory, which 
correspond to the starting positions of the live options. 
These addresses arc held in the array CO'/iJ. 

When the player calls for a change in the current choice 
displayed, the variable NP is set to the number of the 
new position, and the variable XP is set to the number 
of the old position. 

To highlight an option, the routine at line 900 POKEs 
the highlight color code into the sixteen color memory 
addresses starting at the address CO(NP). To put an op- 
tion back to normal, the routine at line 920 POKEs the 
regular color code into the sixteen color memory ad- 
dresses starting at CO(XP). 

Movement up and down responds to the 17 and f'5 
keys; the space bar is used to select. 

The virtue of this program is that if you were chang- 
ing menus, the same routines could be used to change 
colors in certain positions on the screen regardless of 
what characters were displayed there. 

You will also notice that RUN/STOP and RESTORE 
are disabled at the beginning of the program. However, 
the program checks to see if RUN/STOP has been 
pressed -if it has. everything is set back to normal and 
the program ends. This is an example of how to keep 
the idiots savant from trashing the display. In this pro- 
gram, of course, it doesn't matter-but in the next one 
it does. 

COLOR CODES 

The color codes that you must POKE into color mem- 
ory are identical to the color codes you POKE into the 
background color register to change the background color: 

- black 

1 = white 

2 = red 

3 = cyan 

4 = purple 

5 =a green 

6 = blue 

7 = yellow 

By the way, you can't just PEEK into color memory 
to read what color is stored there. That's because only 
the lower four bits of each color memory address loca- 
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8 


= 


orange 


9 


= 


brown 


10 


= 


light red 


11 


= 


dark grey 


12 


= 


medium gre\ 


13 


= 


light green 


14 


= 


light blue 


15 


= 


light grey 



tion are under control. The upper four bits contain gar- 
bage. So to read color memory accurately, you must 
perform the operation AND 15 with the number you find 
there to get rid of the high nybhle (the highest four bits), 
like this: 

A=PEEK(CM+53)AND 15 

After that statement, the variable A would contain the 
code for the color displayed in the 54th byte of color 
memory. (Remember, the first byte is CM+0, so that 
CM + 53 is the 54th butc.) 

FAST HIGHLIGHTING THRU FAKERY 

The program Menu is slow. POKEing sixteen posi- 
tions in color memory takes time, and the response feels 
sluggish. 

But there's an easy way to speed things up on the 64. 
We can use PRINT to change color memory without 
changing screen memsnry-by fooling BASIC into think- 
ing screen memory is somewhere else. 

You may remember from earlier jaunts through the 
video memory system that there is one location that tells 
the VIC chip where screen memory is, and another lo- 
cation that tells BASIC where screen memory is. BASIC 
uses its number when it is PRINTiug character codes 
into screen memory; the VIC chip uses its number when 
it is scanning to sec what patterns to display on the screen. 
That means that if we tell BASIC that screen mem- 
ory is in one place, and tell the VIC chip that it's in an- 
other, BASIC can PRINT all day and the VIC chip will 
never see it -it will still be looking in its own place for 
screen memory. 

However, while BASIC is PRINTing invisible char- 
acters, all its color changes will be visible, because both 
BASIC and the VIC chip will be using the same color 
memory. 

The example program Fast Menu shows how this is 
done. The options are PR IN 'fed in screen memory at 
1024. just as usual. But then the BASIC screen mem- 
ory pointer at 648 is changed from 4 to 60. This tells 
BASIC to PRINT things at paac 60, or address 15360 
(that is, 60*256). 

The program then PRINTs one string. XCS, to set 
a row back to normal, and another string. HC$. to high- 
light a row. It tioes a whole row (except the last char- 
acter) each time, so that the option could lie of any length. 
The strings consist of the color command character 
plus 39 commas. They didn't have to be commas. They 
could have been anything, including blanks. What mat- 
ters is that color memory is changed - we don't care what 

Continued on page 1J4 



FOR MORE INFORMATION... 

...on any of the products or services advertised or pic- 
tured in Ahoy!, circle the corresponding reader service 
number on the card located between pages 82 and 83. 




FOR THE C-64 

By Larry Murdock 



T ilc puzzles, the predecessors of the more re- 
I cenily popular cube games, were little plastic 



T 

I boards on which were laid several small in 

■**- I terlnekim' tiles. Each tile or square had a 
number, a picture, or a letter of the alphabet printed on 
its face. When you received the game ii was in order. 
You subsequently moved the pieces around to mix up 
the puzzle, then attempted to put it back in order. 

Tile Time is just such a puzzle. Type it in and SAVE it. 

When RUN, the puzzle will appear and a message at 
the bottom will read "JOYSTICK OR KEYBOARD 
J7K". If you select "K" the "cursor" can be positioned 
from the keyboard: up with an "A", down with a "Z". 
left with a "J", and right with a "." {see lines 7000 to 
7080). Hit the spacebar and the tile or tiles will move. 
If you wish to use the joystick, plug it into port number 
two (see lines 2(XX) to 2130). If you want to move one 
tile, position the cursor on the tile you want moved and 
hit the fire button or spacebar. If you want to move more 
than one tile, position the cursor on the last tile you want 
moved and hit the fire button or spacebar. If you want 
to start all over, hit SHIFT and CLR/HOME simultane- 
ously , 

After you respond to the "JOYSTICK" question, the 
screen will read "MIX Y/N". If you respond with a "Y" 
the puzzle will mix itself with 50 quick random moves 
(you can hall the mixing process at any time, by hitting 
any key — see lines 4000 to 4200). If you respond with 
a "N" then you can "MIX" it up yourself. 

The code is kind of interesting and you can have some 
fun changing it around. The machine code scrolling is 
POKEd In via DATA statements (see lines 9000 to 
49790). You can change the face of the puzzle to any- 
thing you want (see lines 290 to 310). The colors of the 
rows can be changed by altering the number codes in 
line 1 10. For younger players you can change one whole 
row to "A" "s and another to "B" 's, etc. If you don't speak 
well English you can change all the letters to numbers. 
If you confuse easily you can change every tile to the 
same thing so that no matter how mixed the tiles are, 
they will be in the right order. □ 

SEE PROGRAM LISTING OX PAGE ill 



Well Have the New Advanced Commodore Products 1st 11 

PRODUCTS! 
LOW PRICES! 




("iill for inform,] I ion 
(^n new products . , . 

CATALOGS; Free 
«n written request 



NEED REPAIRS? We arc an mithim/nl 
Conimixltire Hcpah CenlcrJU 
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SG10 PRINTER 
2K Buffer g-y m x T I 
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Powcrtype Daisy wheel 18 CPS 
with Carcfco B $354 

Okiiiata 92 160 CPS 
wilh Tymac Connection .... 429 

Commodore MPS 802 . Cult 

Okiclata 182 NEW Cull 



PRINTERS 

Epson RX HO 

with Tymac Connection . , , 
DPS 1101 Daisy wheel 

Direct Connect lo C64 . . . 

RitemanC+ NEW 

MW-350 Interface NBW 



$299 

Cull 
Cull 

Cull 

SPECIAL ■ PRINT SHOP -32.00 • SPECIAL 

DISK DRIVES 

MSD Super Drive Call Commodore 1541 .... Call 

Indus GT Ciill Phonemark Dutasclle $29 

Epyx Fast Ixuid S2 7 



COMF1 iSEHVK STARTER rrn r\f 
KlTiVlDTEX. ri :■: jy.y5 

MODEMS 

Wcslridgc-6420 Call 

Mighty Mo Call 

AutoModem new ...... $49 

VIP Terminal 35 

Commotion- l(i(i<) 59 
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MONITORS 

TeknikaMJlO $189 ZenithZVM Cr/Arab . $89/99 

Commodore 1 702 .... Call 

DATABASE MANGERS 

The Consultant $62 PF&FUe $59 

Super Base 64 49 PFSlReport 49 

The Munugcr 35 

WORD PROCESSORS 

Paper Clip/& speller $59/79 Easy Script $35 

Fleet System 2 NEW Call Easy Spell 17 

SPREADSHEETS 

Calc Result Easy/Adv . S25/49 MuilliPlan $65 
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XIDEX SS/DD PRECISION 
DISKETTES • •* q 00 

Lifetime Warranty * 1 O 
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ACCESSORIES 

Com Cool Drive Fan $49 Power Pak $27 

Com Cool Plus wf surge . . 69 Surge Protector 4 Plug . . . 

BLACK NAUGAHYDE COVERS 

ORDER ANY 4 OR MORE COVERS AND liAVH THEM SHIPPED FREE!!! 
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C-64 or 1541 Drive .. . ea. $5 

MSD Drives 1/2 5/6 

Gemini 10X 9 



1702 Monitor $10 

1525/MPS801 7 

I526/MPS802 8 



MOST ORDERS SHIPPED WITHIN' « HOURS' Advertised priori DC la talk tfctck 01 rojney ordtr 
VI5AI.WC orders add 3.5ft. NO C.O.D ORDERS Prnonjl or compiny chfcki drily crdrn 21 ttjfft. All jiki 
ut finil - defective mrrchmdiK cictiin^d for uw product onlf Add 1% lor dipping |I2.SC n-.in ) 
ftmt ljLI la ihippntir on momron Ohioresidcnli Idd &.Sft ulcl In. Prtttl It iviilibillly subject 10 chiiijr. 
HOURS: MON-FH1 10 AM lo 10 PM • SAT 10 AM to 9 PM • SUN Noon to I I'M 

800-638-2617 
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1301 BOAIiD.MANPOl.AND ROAD POLAND, OHIO 44514 
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COMMODORE FONT EDITOR 



FOR THE C-64 



BY PHILLIP CASE 




ave you ever wondered how your compu- 
ter knows to display the letter "A" when it's 
told to -especially when all it really under- 
stands is 1's and O's? The answer lies in 
something called the Video Character Generator or Char- 
acter Matrix, 

Simply put, this is a Read Only Memory I ROM) which 
is filled with data that tells the computer what each char- 
acter in the alphabet is supposed to look like. 

Whenever the computer needs to display an "S," for 
example, it looks through the ROM until it finds the cor- 
rect data for displaying an "S" on the screen. And since 
this matrix of data is stored in ROM, it's ready as soon 
as you turn on your Commodore 64. 

Suppose you could change the data in the character 
matrix so the computer would display your own char- 
acter set instead of the original. You could easily make 
your screen characters appear in Old English, or even 
other languages such as Russian or Greek, complete with 
their special letters. You could define special charac- 
ters such as smiling faces, Pae-man, stars, etc. Imagine 
the impact of a game with a special character font to 
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Now You Can Add 

ARTIFICIAL 
INTELLIGENCE 

To Vbur Programs Using a PowerluJ Combinaticn 
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Heres Your Chance to Profil by being on 
the Forefront, Wriie 5th Generation Software 



<■.■;■, i I.,--:. 1'r: 

* Croat* tnle ilnjifn" • ConnfuLl 

Program* Rule Haiti 
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match the game theme. All this can be done. 

The ROM which stores this character matrix cannot 
be altered, but there is a vector in the Commodore 64 
which tells the computer where the ROM is. This vector 
is in RAM. which means it can be changed. 

Therefore, if we change the vector so it looks into 
RAM to gel the character matrix, we can have our own 
character information right there waiting for it. The pur- 
pose of the Commodore Font Editor is to provide an easy 
interface to create character fonts. The program itself 
is straightforward with few tricks. Type the program in 
slowly and try to understand each module as it is entered. 
Before trying to design a character font, first develop 
it on paper. This allows you to verify the consistency 
between letters before you go into the editor. First, make 
up a character matrix such as the one pictured here. Then 
define your character within the 
box. Remember to leave one 
side column and either the top 
or bottom row empty so your 
characters won't touch each 
other on the screen. II". of 
course, you are defining a cur- 
HHB9BHH9B sive font, you will want the 
characters to connect with some sort of standard so they 
look consistent. 

Also, you should not leave blank columns if you are 
designing special symbols that require more than one 
character, like a pointing hand. 

USING THE FONT EDITOR 

The first thing the program does alter you type "RUN" 
is to load the character area with the data that is stored 
in ROM, This takes about 30 seconds and is only done 
the first time you type "RUN." If you stop the program 
and type "RUN" a second time, the program will not 
get the ROM characters. This is designed to prevent the 
program from wiping out a font you've been designing. 
The program cheeks for this by looking at the top row 
of the "@" character (Screen code 0), so don't alter the 
top row of this character. 

After initializing the system, the program presents the 
main menu. From this point, you can go anywhere in 
the editor. 

Note: the character codes displayed and inputs re- 
quested are not ASCII, but rather the Commodore Screen 
Codes, given on page 132 of the C-64 User's Guide and 
page 376 of the C-64 Programmers Reference Guide. 

Also, the character buffer for the font editor is from 
12288 to 14335 (3000H to 37FFH). The program and 
variable areas from 2048 to 12287 (800H to~3000H). 
The program protects the character buffer from BASIC 
SO your characters will not get wiped out by accident. U 
SEE PROGRAM IJSTISG 0\ PAGE I OH 
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Continued from page 12 
trol of your computer to you in case 
of lockup. Four RENEW programs 
will restore the BASIC program iti 
memory before throwing the switch. 
The unit's two female serial ports 
permit the use of two printers, and 
its two-foot cord acts as an exten- 
sion to your serial bus. 

$24.95 postpaid from Master 
Software. 6 Hiilery Court. Ran- 
daltstown, MD 21133 (phone: 
301-922-2962). 

BLUE CHIPS 

The Commodore investor's 
Newsletter is offered free to Com- 
modore owners interested in play- 
ing the stuck market. A copy can be 
obtained by sending a stamped and 
self-addressed business size 
envelope to Dr. Lynn Harner, 201 1 
Central. Dodge City, KS 67801 
(phone: 316-227-8952). 

APPLICATION 
TEMPLATES 

Fabtronics has produced applica- 
tion templates for Microsoft's 
Multiplan for the Commodore 64. 
Current templates, priced al S! 1 .95 



FREE 



10 DISKETTES 

OR 

20 C-20 CASSETTES 

A subscription to Ihe 'Cassette of the 
Month" gets you a tape of disk full ol 10 
quality Commodore 64 programs deliv- 
ered to you by first class mail every month 
The documentation included will help you 
run great utilities like 'Word Processor,' 
and Budget Analyzer,' or enjoy great 
games like Trogjump' and Caterpillar 
Cave' FOR AS LITTLE AS 50 CENTS 
EACH1 

* Limited offer * Subscribe for a year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe lor a year on disk and 
receive 10 Free 5V* single sided double 
density diskettes! pRIPFC— 

TAPE DISK 

1YA(12ISSUES) 6T 75°° 

EMOjSISSUES) 35* 45™ 

Steppes 7™ 9" 




* We've bee n in busi ness lor kwi n« wo i-t 



merlhree years! acq u 'ring 

* Over 4000 satisfied color 
computer owners 

* Commodore 64 required 



Ovortau W0 S 1 to subsaipwi 
a-yj Si 00 "o & n$-e r»u«. 

PEflSONAL CHECKS WaCOME' 

T& D Subscription Software 

P.O.BOX25H: 
HOLLAND, Ml 49423 _«_ 

(616)396-7577 -£i» 



for documentation and software 
($6,95 for documentation alone), in- 
clude home budget, accounts 
payable, accounts receivable, inven- 
lory management, cheek ledger, and 
invoicing. 

Fabtronics, 51 Quarry Street. 
Brockport. NY 14420 ' (phone: 
716-637-6371). 

Cooperative Design is looking for 
individuals to write application ov- 
erlays (to be called Magnetic Tem- 
plates) for various C-64 spreadsheet 
and database programs. They will 
encourage users to modify, copy, 
and distribute these programs, with 
each new user voluntarily mailing in 
payment. Authors will receive 25 
percent of all sales. 
, Send a stamped and self- addressed 
envelope to Cooperative Design at 
129 Anthes. Box 138. Lang ley. WA 
98260 and you'll receive a catalog 
of available and coming templates. 
If you'd like submission guidelines, 
send a list of templates you could 
develop and templates you'd like to 
see. 

Also available: blank cardslock 
Personal RAM boards which fit 
around the keys of your 64 or VIC, 
providing space for notes for partic- 
ular programs. Package of 12: 
$9.95. 

1200 BAUD MODEM 

U.S. Robotics has signed an agree- 
ment with Commodore International 
to manufacture a 1200/300 bil-per- 
second modem with automatic phone 
dialing and other advanced features. 
It will be marketed by Commodore 
as the Commodore Modem/1200 
(model 1670). 

The new modem will be compati- 
ble with the 128, 64, Plus/4, SX-64. 
and VIC 20 computers. As well, it 
will feature Hayes compatibility and 
a built-in speaker that will allow users 
to hear the call being dialer!. 

U.S. Robotics. Inc., 8100 McCor- 
mick Blvd., Skokie, IL 60076 
(phone: 312-982-5010). 

■ i r _ i . — \ .- — — -- — — . — 
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A NECESSITY 
FOR YOUR DISK SYSTEM 



_ DISK ■ . 

SleutH 




A DELUXE DISK ORGANIZING SYSTEM 

for the Commodore 64 that creates a 
DATA-BASE of your disk program library- 
Creates an ALPHABETIZED DIRECTORY of 
all your disks and disk programs. EASY TO 
USE-Reads your disks. Shows WHERE TO 
FIND EACH PROGRAM. Gives COMPLETE 
PROGRAM INFORMATION, Including YOUR 
OWN PROGRAM COMMENTS. PRINT-OUT 
DIRECTORY, View, or Search. PERMANENT 
DIRECTORY - 1541 or MSD. WINDOWS for 
all disk information. 

$34,95 Postpaid. Commodore 64 only. California 
residents add 6% sales tax. 



■» 
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U /AT /A 

Please note the following omissions/er- 
rors in previously published Ahoy! pro- 
grams: 

MANSION DISPLAY SETUP (March 1985): 

The following tine did not appear in print. Please in- 
sert it: 

52723 DATA "[a UJX" 



Some of you may have been confused by the extra open 
bracket in lines 52404 to 52408, and the extra close brac- 
ket in lines 525 i I to 52517. These extra brackets appear 
not by mistake, but as characters which are printed to 
the screen. 

OLD ROUTINE (March 1985): 

We neglected to mention that the first byte of the pro- 
gram is 8000 and the last byte is 808C. 

HOME BUDGET (March 1985): 

Line 380, mangled during printing, should read as fol- 
lows: 

380 PRINT" [ DOWN] [DOWN] MONTHLY T0TAL M TAB( 
14)Q+AA+BB 

We regret any inconvenience these errors may have caused. 
Corrections to Ahoy! programs and articles are posted 
on our bulletin board (718-383-8909 as of April 15) as 
soon as they are spotted. 
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since all the messages are in plain English anyway. 
Together FFS:Fite and PFS; Report make a gotxl team. 



PFS: Report 
adds number- 
crunching and 
printer options 
to File. 
READER 
SERVICE 
NO. 236 



They give you all the important database features and 
File throws in a powerful extra. Your format is perfect, 
you're entering data; but you would really like to attach 
a note to one record. Just call up another page (for that 
one record only) and type your note. As simple as that. 
Just as the description of this feature is tacked onto the 
end of this review, File can attach a note to any record — 
and use a minimum of disk space to boot. 

Software Publishing Corporation, 1901 Landings 
Drive, Mountain View, CA 94043 (phone: 415-962-8910). 

— Richard Herring 
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Attention new Ahoy. 1 readers! You must read the following information very 

carefully prior to typing in programs listed in Ahoy. 1 Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this page. 




n the following pages you'll find several 
programs that you can enter on your 
Commodore computer. But beibrc doing 
so, read this entire page carefully. 
To insure clear reproductions. AhcyVs program 
listings are generated on a daisy wheel printer, in- 
capable of printing the commands and graphic char- 
acters used in Commodore programs. These are 
therefore represented by various codes enclosed in 
brackets [ ]. For example: the SHIFT CLR/HOME 
command is represented onscreen by a heart E ■ 
The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encoun- 
ter in our listings, except for one other special case. 
The other special ease is the COMMODORE and 
SHIFT characters. On the front of most keys are two 
symbols. The symbol on the left is obtained by 
pressing that key while holding down the COMMO- 
DORE key; the symbol on the right, by pressing 
that key while holding down the SHIFT key. COM- 
MODORE and SHIFT characters are represented in 
our listings by a lower-case "s" or "c" followed by 
the symbol of the key you must hit. COMMODORE 



J, for example, is represented bv [c J|. and SHIFT J 
by [sJ]. 

Additionally, any character that occurs more than 
two times in a row will be displayed by a coded list- 
ing. For example, [3 "[LEFT]"] would be 3 
CuRSoR left commands in a row. [5 "(s EP]"] 
would be 5 SHIFTed English Pounds, and so on. 
Multiple blank spaces will be noted in similar fash- 
ion: 22 spaces, for example, as ]22 " "}. 

Sometimes you'll find a program line that's too 
long for the computer to accept (C-64 lines are a 
maximum of 80 characters, or 2 screen lines, long: 
VIC 20 lines, a maximum of 88 characters, or 4 
screen lines). To enter these lines, refer to the BASIC 
Command Abbie\mtkm$ Appendix in your User 
Manual. 

On the next page you'll find our Bug Repellent 
programs for the VIC 20 and C-64. The version ap- 
propriate for your machine will help you proofread 
our programs after you type them, f Please note: the 
Bug Repellent line codes that follow each program 
line, in the whited-out area, should not be typed in. 
See the instructions preceding each program.) _ 
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IMPflRTANTI Let,ers on wni,e background are Bug Repellent line codes. Do not enter them! This and the preceding page explain these 
I UI1 IfllH I . codes and provide other essential information on entering Ahov! proqrams. Read these Daces before enterina Droarams. 



BUG REPELLENT 

This program will let you debug any Ahoy! program. Follow in- 
structions for VIC 20 (cassette or disk) or C-64. 

VIC 20 VERSION 
By Michael Kieinert and David Barron 

Far cassette: type in and save the Hug Repellent program, then 
type RUN63000tRF.TURN|SYS 82H[RETURN]. If you typed the 
program properly, it will generate a set of two- letter line codes thai 
will match those listed to the right of the respective program lines. 

Once you've got a working Buy Repellent, type in the program 
you wish to cheek. Save it and type the RUN and SYS commands 
listed above once again, then compare the line codes generated to 
those listed in the magazine. If you spot a discrepancy, a typing 
error exists in that line. Important: you must use exactly the same 
spacing as the program in the magazine. Due to memory limitations 
on the VIC, the VIC Bug Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 as many times as you wish, hut if you 
use the cassette, for anything, type RUN 63000 to restore the 
Repellent. 

When your program has been disinfected you may delete all lines 
from 63000 on. (Be sure the program vou tvpc doesn't include lines 
abovg 63000!) 

For disk; enter Bug Repellent, save it, and type RUN: NEW 
[RETURN]. Type in the program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT, 

To send the list to the printer type OPEN 4.4:CMD 4:SYS 
82 8 1 RETURN | , When the cursor comes hack, type 
PRINT#4:CLOSE 4| RETURN). 

•63000 F0RX=828T01023: READY :P0KEX,Y: NEXT: END AC 

■63001 DATA! 69, 0,133, 63, 133, 64, 165, 43, 133 ,251 JL 

•63002 DATA 165, 44, 133, 252, 160, 0,132, 254, 32, 228 DF 

•63003 DATA3, 234, 177, 251, 208, 3, 76, 208, 3, 230 0E 

•63004 DATA25 1,208, 2, 230, 252, 169, 244, 160, 3, 32 OH 

•63005 DATA30, 203, 160, 0,177, 25 1,1 70, 230, 251, 20 

8 K0 

•63006 DATA2, 230 ,252, 177, 25 1,32, 205, 221, 169, 58 JJ 

•63007 DATA32, 210, 255, 169, 0,133, 253, 230, 254, 32 OK 

•63008 DATA228,3,234, 165,253, 160,0,170,177,251 LG 

•63009 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 

* 63010 DATA 138, 133, 253, 177, 251, 208, 226, 165, 253 

,41 DD 

•63011 DATA240, 74, 74, 74, 74, 24, 105,65, 32, 210 EK 

•63012 DATA255, 165, 253, 41, 15, 24, 105,65,32,210 F0 

•63013 DATA255, 169, 13, 32, 210, 255, 173, 141, 2, 41 PK 

•63014 DATA1, 208, 249, 230, 63, 208, 2, 230, 64, 230 CB 

•63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 KH 

•63016 DATA 160, 3, 32, 30, 203, 166, 63, 165, 64, 32 DP 

•63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 

1 EL 

•63018 DATA208, 2,230, 252,96,0,76,73, 78', 69 01 

•63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 FG 

•63020 DATA32, 0,0, 0,0,0 LE 

C-64 VERSION 

By Michael Kieinert and David Barron 

lype in. SAVE, and RUN the Hug Repellent. Type NEW, then 
i) pc in ui LOAD the Ahoyl program you wish io check. When that's 
done, SAVE your program (don'i RUN it!) and ivpe SYS 49152 
| RETURN]. ' 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generates to the codes listed 
to the right of the respective program lines. If you spot a difference, 
an error exists in that line, .lot down the number of lines where 
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on entering Ahoy! programs. Read these pages before entering programs. 

contradictions occur. LIST each line, spot ihe errors, and correct 
them. 

•5000 F0RX=49152T049488 : READY :P0KEX,Y: NEXT: END GJ 

•5001 DATA32, 161, 192, 165, 43, 133, 251, 165, 44, 133 DL 

•5002 DATA252, 160, 0,1 32, 254, 32, 37, 193, 234, 177 D!3 

■5003 DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

•5004 DAT A2 30, 252, 76, 43, 192, 76, 73, 78, 69, 32 KN 

•5005 DATA35,32,0, 169,35, 160, 192,32,30, 171 CA 

•5006 DATA 160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 

•5007 DATA252,177,251,32,205,189,169,58,32,210JE 

•5008 DATA255, 169,0, 133,253,230,254,32,37, 193 CL 

•5009 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 

•5010 DATA1 77, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 

•5011 DATA74, 74, 24, 105, 65, 32, 210, 255, 165, 253 EP 

•5012 DATA41, 15, 24,105, 65, 32, 210, 255, 169, 13 GH 

•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 

•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 NG 

•5015 DATA160, 192, 32, 30, 171, 166,63,165,64,76 BF 

•5016 DATA231,192,96,76,73,78,69,83,58,32 EP 

■5017 DATA0, 169, 247, 160, 192, 32, 30, 171, 169, 3 PJ 

•5013 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 FK 

•5019 DATA80, 208,245, 230, 254,32, 210,255, 169,4 FL 



•5020 DATA166, 254, 160, 255, 32, 186, 255, 169, 0,133 CL 

•5021 DATA63, 133, 64, 133, 2, 32, 189, 255, 32, 192 GC 

•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193,96 NN 

•5023 DATA32, 210, 255, 173, 141, 2, 41, 1,208, 249 NH 

•5024 DATA96, 32,205, 189, 169, 13,32,210, 255,32 IM 

■5025 DATA204, 255, 169, 4, 76, 195, 255, 147, 83, 67 KG 

•5026 DATA82, 69, 69, 78, 32,79,82,32,80,82 DC 

•5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 ML 

•5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 GN 

•5029 DATA113.251, 69, 254,170, 138, 76, 88, 192,0 JK 

■5030 DATA0, 0,0, 230, 251, 208, 2, 230, 252 ,96 NA 

•5031 DATA 170, 177, 251, 201, 34, 208, 6, 165, 2, 73 DM 

•5032 DATA255, 133, 2, 165,2,208,218,177,251,201 JA 

•5033 DATA32, 208, 212, 198, 254, 76, 29, 193, 0,1 69 FM 

•5034 DATA 13, 76, 210, 255, 0,0,0 PA 

3UAKIcS^3>J51[D FORTHEC64 
By Gordon- F. Wheat 

Fhmkspeeit will allow \m\ io enter machine language Allay! pro- 
grams without any mistakes. Once y on have typed the program in. 
save it tin- future use While entering an Ml. program with 
l-lnnkspeeJ there is i^< nectl to enter spaces or hit the carriage return. 
This is all done automatically - II you make an error in a line a bell 
will ring and you will be asked to enter il again. To LOAD in a 
program Saved with Fiiinkxpecd use LOAD "name", I , I lor tape. 
or LOAD "name ".S.I for disk I he function keys may be used alter 
die starling and ending addresses have been entered 
!l SAVEs what you have entered so fill 
l'3 I.OADs in a program worked on previously, 
15 To continue on a line you stopped on after LOADitig in the 
previous!) saved work. 

17 Scans through the program to locate a particular line, or to find 
out where you slopped the last nine you entered the program, (7 
lemporarily freezes the output as well. 

•5 P0KE53280,12;POKE53281,ll ■ LL 

•6 PRINT"[CLEAR][c 8] [RVS0N]f 15" "]FLANKSPEED[ 

15" "]"; ED 

•10 PRINT"[RVS0N][5" "JMISTAKEPROOF ML ENTRY P 

R0GRAM[6" "]" MC 

•15 PRINT"[RVS0N][9" "]CREATED BY G. F. WHEAT[ 

9" "]» DM 

•20 PRINT"[RVS0N][3" "]C0PR. 1984, ION INTERNA 



TIONAL INC. [3" "]" DH 

30 F0RA=54272TO54296:P0KEA,0:NEXT IM 

40 P0KE54272 , 4 ; POKE54273 , 48 1 PQKE54277 ,0: POKES 
4278,249:P0KE54296,15 NH 

70 F0RA=680T0699:READB:P0KEA,B:NEXT KO 

75 DATA169, 251, 166, 253,164, 254, 32,216,255, 96 HJ 

76 DATA169, 0,166,251,164,252,32,213,255,96 JB 
80 B$="STARTING ADDRESS IN HEX":GOSUB2010:AD= 
B:SR=B 



HC 

GOSUB2520 : I FB=0THEN80 FO 

P0KE251 ,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 KE 
B$="ENDING ADDRESS IN HEX":G0SUB2010:EN=B IF 
GOSUB2510:IFB=OTHEN80 FP 

P0KE254,T(2)+T(1)*16:B=T(4)+1+T<3)*16 MN 
IFB>255THENB=B-255:POKE254,PEEK(254)+l GE 
POKE253.B: PRINT HN 

REM GET HEX. LINE IL 

GOSUB3010: PRINT": [c P][LEFr]"; :F0RA=0T08 FG 



85 

86 

90 

95 

96 

97 

98 

100 

110 

120 

125 

130 

135 

140 

150 

160 

170 

180 

0110 

200 REM 



FORB=OT01:GOT0210 

NEXTB 

A%(A)=T( 1 )+T(0)*16: IFAD+A-1=ENTHEN310 

PRINT" [c P][LEFT-]"; 

NEXTA:T=AD-(INT(AD/256)*256) :PRINT" " 

FORA=OT07:T=T+A%(A):IFr>255THENT=T-255 

NEXT 

IFA%(8)OTTHENG0SUB1010:G0T0110 

FORA=0TO7 : POKEAD+A , A%( A ) : NEXT: AD=AD+8 : GOT 



210 
211 
212 
213 
214 
215 
220 
250 
230 
250 
240 
250 
260 
270 
272 
274 
280 
285 
290 
300 
310 
320 
330 
340 
350 
360 
1000 



GET HEX INPUT 
GETA.$:1I'A$=""TIIEN210 
lFA$=CUR$(20)TlfEN270 
IFA$=CHR$(133)THEN4000 ' 
IFA$=CHR$( 134)THEN4100 
IFA$=CHR$( 135)THENPRINT" 
IFA$=CHR$(136)THENPRINT" 
IFA$>"@"ANDA$<"G"THENT(B) 



":GOT04500 
":GOT04700 
=ASC(A$)-55:G0TO 



IFA$>7"ANDA$<":"THENT(B)=ASC(A$)-48:C0T0 

GOSUB1100:G0TO210 
PRINTA$"[c P][LBFT]"; 
GOT0125 
IFA>0THEN280 
A=-1:IFB=1THEN290 
GOTO 140 

IFB=0THENPRINTCHR${20);CHR$(20);:A=A-1 
A=A-1 

PRINTCHR$(20);:GOT0140 
REM LAST LINE 

PRINT" ":T=AD-(INT(AD/256)*256) 
FORB=OTOA-1 :T=T+A%(B) :IFT>255THENT=T-255 
NEXT 

IFA%(A)OTTHENG0SUB1010:G0T0110 
FOR B=OTOA- 1 : POK E AD+B , A% { B ) : N EXT 
PRINT :PRINT"YOU ARE FINISHED!" ;GOT04000 
REM BELL AND ERROR MESSAGES 



1010 PRINT : PRINTLINE ENTERED INCORRECTLY": PR 
INT: GOTO 1100 

1020 PRINT :PRINT"INPUT A 4 DIGIT HEX VALUE!": 
GOTO 1100 

1030 PRINT: PRINT"ENDING IS LESS THAN STARTING 
!":B=0:G0T01100 

1040 PRINT: PRINT" ADDRESS NOT WITHIN SPECIFIED 
RANGE! ":B=0: GOTO 1100 
1050 PRINT: PRINT"NOT ZERO PAGE OR ROM!":B=0:G 
0T01100 



MD 
ME 
LH 

IK 
PD 
LK 

I A 
FK 

MN 
AB 
110 
GC 
MD 
KF 
GE 
BJ 

GM 

LE 
LL 
OA 
CG 
OP 
OB 
CJ 
HG 
BE 
KH 
AD 
GJ 
PL 
1A 
KF 
HN 
ON 
FL 

DH 

J A 

IID 
AG 
KN 



1060 PRINT"? ERROR IN SAVE" :G0T01 100 

1070 PR INT"? ERROR IN LOAD": GOTO 1100 

1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT 

1 100 P0KE54276 , 17 :POKE54276 , 16 : RETURN 

1200 OPEN15,8,15:INPUT#15,A,A$:CLOSE15:PRINTA 

S: RETURN 

2000 REM GET FOUR DIGIT HEX 

2010 PRINT :PRINTB$;:INPUrr$ 

2020 I FLEN(T$ ) O4THENG0SUB1 020 : G0T02010 

2040 F0RA=1T04:A$=MID$(T$,A, l):GOSUB2060;IFT( 

A)=16THENG0SUB1020:G0T02010 

2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 

T(4):RETURN 

2060 IFA$>"@"ANDA$<"G"THENT(A)=ASC(A$)-55:RET 

URN 

2070 

URN 

2080 

2500 

2510 

2515 

2520 



IFA$>'7"ANDA$<":"THENT(A)=ASC(A$)-48:RET 



T{A)=16: RETURN 

REM ADRESS CHECK 

IFAD>ENTHEN1030 

IFB<SR0RB>ENTHEN1040 

TF8<2560R(B>40960ANDB<49152)ORB>53247THE 
N1050 

2530 RETURN 

3000 REM ADDRESS TO HEX 
3010 AC=AD:A=4096:GOSUB3070 
3020 A=256:GOSUB3070 
3030 A=16:G0SUB307O 
3040 A=l:GOSUB3070 
3060 RETURN 

3070 T=INT(AC/A) :IFT>9THENA$=CHR$(T+55) :G0TO3 
090 

3080 A$=CHR$(T+48) 
3090 PRINTA$; :AC=AC-A*T: RETURN 
4 WO A$="**SAVE**":GOSUB4200 
4050 0PEN1,T,1,A$:SYS680:CL0SE1 
4060 IFST=OTHENEND 
4070 GOSUB1060:IFT=8THENGOSUB1200 
4080 G0T04000 

4100 A$="**L0AD**" :G0SUB4200 
4150 0PEN1 ,T,0, A$ : SYS690 : CL0SE1 
4160 IFST=64THEN110 

G0SUB1070 : IFT=8THENG0SUB1 200 

GOT04100 

PRINT" ":PRINTTAB{14)AS 

PRINT: A$="" : INPUT'TILENAME" ; A$ 

IFA$=""THEN4210 

PRINT: PRINT"TAPE OR DISK?": PRINT 

GETB$:T=1:IFB$="D"THENT=8:A$="@0:"+A$:RE 



4170 
4180 
4200 
4210 
4215 
4220 
4230 
TURN 
4240 
4250 



IFB$O"T"THEN4230 

RETURN 

4500 B$="CONTINUE FROM ADDRESS" :G0SUB2010:AD= 
B 

GOSUB2515:IFB=0THEN4500 

PRINT :G0T01 10 

B$="BEGIN SCAN AT ADDRESS":G0SUB2010: AD= 



4510 

4520 

4700 

B 

4705 

4706 

4710 



GOSUB251 5 : IFB=0THEN4700 

PRINT :GOT04740 

FORB=0T07 :AC=PEEK( AD+B) :GOSUB3030: IF AD+B 
=ENTHENAD=SR:G0SUB1080:G0T0110 
4715 PRINT" ";:NEXTB 
4720 PRINT :AD=AD+8 
4730 GETB$:IFB$=CHR$(136)THEN110 
4740 G0SUB3010: PRINT": "::G0T04710 



EI 
GL 
PG 
BH 

IM 
PC 
GM 
II 

AD 

GF 

EH 

KP 
NP 
LI 
MI 

MG 

MI 
IM 
EB 
HG 
CE 
PN 
MJ 
IM 

CJ 
JP 
AC 
AI 
LH 
EO 
FJ 
FF. 
AB 
MF 
JH 
CM 
FO 
FG 
OM 
GF 
DF 

IG 
FN 
IM 

DK 
MA 
01 

FH 
NK 
DI 

BK 
EC 

GN 
MN 
JD 
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FROM PAGE 18 



MENU FOR VIC 20 



1 REM MENU FOR VIC— POKEING COLOR MEMORY JG 

7 REM JD 

8 REM DISABLE RUN/STOP & SHIFT/COMMODORE EG 

9 REM JD 

10 POKE 808, 100: POKE 657,128 JP 
20 DIM C0(4) KH 

27 REM JD 

28 REM SET C0() TO ADDRESSES OF OPTION F 

I ELDS IN COLOR MEMORY MD 

29 REM JD 

30 CM=38400:CO(0)=38513:FOR 1=1 TO 4:C0( 
I)=CO(I-l)+22:NEXT PF 

37 REM JD 

38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR VALUES IL 

40 NP=2:XP=2:NC=1:XC=0:P0KE 36879,232 PC 

41 PRINT "[BLACK]"; KF 

47 REM JD 

48 REM PRINT THE MENU AO 

49 REM JD 

50 CR$=CHR$( 13); PRINT "[CLEAR] CHOOSE YO 
UR SANDWICH" EN 

51 PRINT "[4" "]F5=UP F7=D0WN"CR$"[5" " 
]SPACE=CHOICE" BE 

52 PRINT "[21"*"]'*CR$"*[19" "]*" FF 

53 PRINT "* ROAST BEEF [7" "]*"CR$"* CO 
RNED BEEF[6" "]*" LB 

54 PRINT "* SHAVED HAM[7" ")*"CR$"* PA 
STRAMI[9" "]*" HN 

55 PRINT "* TURKEY S SALAMI *"CR$"*[19 

" "]*" KG 

56 PRINT "[21"*"]"CR$CR$CR$CR$CR$CR$ GB 

57 PRINT "[4"'"]PRESS [RVS0N]Q[RVS0FF] T 

QUIT"; BJ 

60 GOSUB 900 DD 

97 REM JD 

98 REM READ KEYBOARD BA 

99 REM JD 

100 A=PEEK(197):IF A=64 THEN 100 CH 

106 REM JD 

107 REM JD 

108 REM STOP NOW? BI 

109 REM JD 

110 IF A=48 THEN 800 DJ 

117 REM JD 

118 REM CHOICE MADE? JB 

119 REM JD 

120 IF A=32 THEN GOSUB 200: GOTO 100 NH 
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-127 REM JD 

•128 REM MOVE UP? KN 

•129 REM JD 

•130 IF A=55 THEN NP=NP-1:IF NP<0 THEN NP 

=4 BB 

•137 REM JD 

•138 REM MOVE DOWN? EN 

•139 REM JD 

•140 IF A=63 THEN NP=NP+1:IF NP>4 THEN NP 

=0 AD 

•148 REM IF MOVE, GO DO IT GC 

•150 IF NPOXP THEN GOSUB 920: GOSUB 900: X 

P=NP AO 

•160 POKE 197,64:GOT0 100 CN 

•200 IF PEEK (197)064 THEN 200 DL 

•207 REM JD 

•208 REM CLEAR OLD CHOICE JJ 

•209 REM JD 

•210 PRINT "[HOME] [13"[D0WN]"] YOU CHOSE:" 

CR$"[21" "][UP]" FE 

•217 REM JD 

•218 REM JUMP TABLE CL 

•219 REM JD 

•220 ON NP+1 GOTO 300,400,500,600,700 KM 
•300 PRINT "ROAST BEEF ON WHEAT" : RETURN EM 
•400 PRINT "CORNED BEEF ON RYE": RETURN OJ 
•500 PRINT "SHAVED HAM ON BUN": RETURN BK 
•600 PRINT "PASTRAMI ON TOAST": RETURN EP 
•700 PRINT "TURKEY/SALAMI ON ROLL": RETURN HI 
•797 REM JD 

•798 REM QUIT ROUTINE PD 

•799 REM JD 

•800 IF PEEK(197)<>64 THEN 800 EB 

•810 PRINT "[CLEAR]":POKE 808,112:P0KE 65 

7,0: POKE 198,0: END GL 

•897 REM JD 

•898 REM POKE COLORS INTO COLOR MEMORY PD 
•899 REM JD 

•900 FOR I=CO(NP) TO C0(NP)+15:P0KE I,NC: 

NEXT: RETURN LK 

•920 FOR I=CO(XP) TO C0(XP)+15:P0KE I,XC: 

NEXT: RETURN II 

MENU FOR C-64 

•1 REM MENU FOR 64— POKEING COLOR MEMORY PO 
•7 REM JD 

•8 REM DISABLE RUN /STOP AND RESTORE JC 
•9 REM JD 

•10 POKE 792, 193: POKE 808, 239: POKE 657,12 

8 MF 

•20 DIM 00(4) JL 

•27 REM JD 

•28 REM SET C0() TO ADDRESSES OF OPTION F 

I ELDS IN COLOR MEMORY DP 

•29 REM JD 



>30 CM=55296:CO(0)=55499:FOR 1=1 TO 4:C0( 
I)=C0(I-1)+40:NEXT FJ. 

37 REM JD 

38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR VALUES FE 
40 NP=2:XP=2:NC=1:XC=14 NL 

47 REM JD 

48 REM PRINT THE MENU EE 

49 REM JD 

50 CR$=CHR$( 13): PRINT "[CLEAR] [10" "]CHO 
OSE YOUR SANDWICH" HD 

51 PRINT "[5" "]F5=UP[3" "]F7=DOWN[3" "] 
SPACE=CHOICE" AF 

52 PRINT CR$"[23"*"]"CR$"*[21" "]*" KM 

53 PRINT "* ROAST BEEF [9" "]*"CR$"* CO 
RNED BEEF[8" "]*" OF 

54 PRINT "* SHAVED HAM[9" "]*"CR$"* PA 
STRAMI[11" "]*" ON 

55 PRINT "* TURKEY & SALAMI [4" "]*"CR$" 
*[21" "]*" MO 

56 PRINT "[23"*"]"CR$CR$CR$CR$CR$CR$ EA 

57 PRINT "[9" "] PRESS [RVSON] RUN/STOP [RV 
SOFF] TO QUIT"; LI 
60 GOSUB 900 DB 

97 REM JD 

98 REM READ KEYBOARD AI 

99 REM JD 

100 A=PEEK(197):IF A=64 THEN 100 PP 

106 REM JD 

107 REM JD 

108 REM STOP NOW? BK 

109 REM JD 

110 IF A=63 THEN 800 DM 

117 REM JD 

118 REM CHOICE MADE? U 

119 REM JD 

120 IF A=60 THEN GOSUB 200: GOTO 100 OH 

127 REM JD 

128 REM MOVE UP? KJ 

129 REM JD 

130 IF A=6 THEN NP=NP-1:IF NP<0 THEN NP= 

4 CJ 

137 REM JD 

138 REM MOVE DOWN? DN 

139 REM JD 

140 IF A=3 THEN NP=NP+1:IF NP>4 THEN NP= 

FF 

148 REM IF MOVE, GO DO IT DJ 

150 IF NPOXP THEN GOSUB 920: GOSUB 900 :X 



P=NP 


AL 


160 POKE 197,64:GOTO 100 


DN 


200 IF PEEK(197)<>64 THEN 200 


FF 


207 REM 


JD 


208 REM CLEAR OLD CHOICE 


GF 


209 REM 


JD 


210 PRINT "[HOME] [13" [DOWN]"] YOU CHOSE:" 




CR$"[25" H ][UP]" 


CG 


217 REM 


JD 



218 REM JUMP TABLE EB 

219 REM JD 

220 ON NP+1 GOTO 300,400,500,600,700 GC 
300 PRINT "ROAST BEEF ON WHEAT": RETURN PE 
400 PRINT "CORNED BEEF ON RYE": RETURN EL 
500 PRINT "SHAVED HAM ON A CROISSANT": RE 
TURN KG 
600 PRINT "PASTRAMI ON TOAST" : RETURN DI 
700 PRINT "TURKEY & SALAMI ON ROLL":RETU 
RN LH 

797 REM JD 

798 REM QUIT ROUTINE PJ 

799 REM JD 

800 IF PEEK( 197)<>64 THEN 800 EL 
810 PRINT "[CLEAR]": POKE 792,71 :POKE 808 
,237: POKE 657,0: POKE 198,0: END OE 

897 REM JD 

898 REM POKE COLORS INTO COLOR MEMORY BM 

899 REM JD 

900 FOR I=CO(NP) TO CO(NP)+15:P0KE I.NC: 
NEXT: RETURN JD 
920 FOR I=CO(XP) TO C0(XP)+15:P0KE 1,10s 
NEXT: RETURN LJ 

FAST MENU FOR C-64 

7 REM JD 

8 REM DISABLE RUN/STOP AND RESTORE JC 

9 REM JD 

10 POKE 792, 193: POKE 808, 239: POKE 657,12 

8 MF 

20 DIM V$(23) LF 

27 REM JD 

28 REM SET V$() TO ROW NUMBERS BG 

29 REM JD 

30 V$(0)=" [HOME]": FOR 1=1 TO 23:V$(I)=V$ 
(1-1)+" [DOWN ]":NEXT MB 

37 REM JD 

38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR STRINGS IK 

40 NP=2:XP=l:XC$="[c 7] [39","]" MJ 

41 HC$="[ WHITE ]"+RIGHT$(XC$, 39) JG 

47 REM JD 

48 REM PRINT THE MENU EE 

49 REM JD 

50 CR$=CHR$( 13): PRINT "[CLEAR] [10" "]CHO 
OSE YOUR SANDWICH" HD 

51 PRINT "[5" "]F5=UP[3" "]F7=D0WN[3" "] 
SPACE=CHOICE" AF 

52 PRINT CR$"[23"*"]"CR$ ,, *[21" "]*" KM 

53 PRINT "* ROAST BEEF[9" "]*"CR$"# CO 
RNED BEEF [8" "]*" OF 

54 PRINT "* SHAVED HAM[9" "]*"CR$"* PA 
STRAMI[11" "]*" ON 

55 PRINT "* TURKEY S SALAMI [4" "]*"CR$" 
*[21" "]*" MO 

56 PRINT "[23"*"3"CR$CR$CR$CR$CR$CR$ EA 

57 PRINT "[9" "]PRESS [RVSON]RUN/STOP[RV 
SOFF] TO QUIT"; LI 
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-60 GOSUB 900:XP=NP 


GC 


•97 REM 


JD 


•98 REM READ KEYBOARD 


AI 


-99 REM 


JD 


•100 A=PEEK(197):IF A=64 THEN 100 


PP 


•107 REM 


JD 


•108 REM QUIT? 


AL 


•109 REM 


JD 


•110 IF A=63 THEN 800 


DM 


•117 REM 


JD 


•118 REM CHOICE MADE? 


LJ 


•119 REM 


JD 



•120 IF A-60 THEN GOSUB 200: GOTO 100 OH 
•127 REM JD 

•128 REM MOVE UP? KJ 

•129 REM JD 

•130 IF A=6 THEN NP=NP-1:IF NP<0 THEN NP= 
4 CJ 

•137 REM JD 

-138 REM MOVE DOWN? DN 

•139 REM JD 

•140 IF A=3 THEN NP=NP+1:IF NP>4 THEN NP= 
FF 

•147 REM JD 

•148 REM IF MOVE, GO DO IT DJ 

•149 REM JD 

•150 IF NPOXP THEN GOSUB 900:XP=NP GG 
•160 POKE 197, 64: GOTO 100 DN 

•200 IF PEEK (197)<>64 THEN 200 FF 

•207 REM JD 

•208 REM CLEAR OLD CHOICE GF 

•209 REM JD 

•210 PRINT "[H0ME][13"[D0WN]"]Y0U CHOSE:" 
CR$"[25" "HUP]" CG 

•217 REM JD 

•218 REM JUMP TABLE EB 

•219 REM JD 

•220 ON NP+1 GOTO 300,400,500,600,700 GC 
•300 PRINT "ROAST BEEF ON WHEAT": RETURN PE 
■400 PRINT "CORNED BEEF ON RYE": RETURN EL 
•500 PRINT "SHAVED HAM ON A CROISSANT": RE 
TURN KG 

•600 PRINT "PASTRAMI ON TOAST" : RETURN DI 
•700 PRINT "TURKEY & SALAMI ON R0LL":RETU 
RN LH 

•797 REM JD 

•798 REM RESTORE AND END HJ 

•799 REM JD 

•800 IF PEEK( 197)<>64 THEN 800 EL 

•810 PRINT "[CLEAR]": POKE 792,71: POKE 808 

,237: POKE 657,0: POKE 198,0: END OE 

•897 REM JD 

•898 REM PRINT COLORS USING FALSE SCREEN 

MEMORY CE 

•900 POKE 648, 60: PRINT V$(NP+5)HC$V$(XP+5 

)XC$:P0KE 648,4:RETURN FK 




WORM FOR VIC 20 

•1 REM WORM FOR VIC— ANIMATE WITH COLOR M 

EMORY OE 

•10 POKE 808, 100: POKE 657,128 JP 

•20 DIM WM(14) OC 

•30 CM=3840O:WM(O)=38520:WM(l)=38521:WMC2 

)=38544:LW=2 KB 

•40 CW*=2:CB=0:CF=5:P0KE 36879, 8: PRINT CHR 

$(144)CHR$(147); HF 

•50 F$= s "[21"[s Qj'T BF 

•51 FOR 1=0 TO 23: PRINT F$: NEXT: PRINT F$" 

[HOME]"; BG 

•52 FOR I=CM+21 TO CM+505 STEP 22:P0KE I, 

0:NEXT LD 

•53 FOR 1=7701 TO 8185 STEP 22: POKE 1,81: 

NEXT GC 

•60 FOR 1=0 TO LW:POKE WM(I) ,CW:NEXT LM 
•70 FOR 1=0 TO 11 ML 

•75 F=CM+INT(506*RND(9)):IF ( PEEK (F) AND 1 

5)<>CB THEN 75 CD 

•80 POKE F,CF:NEXT FM 

•100 A=PEEK(197);B=PEEK(653):IF A=24 OR A 

=48 THEN 800 ID 

•110 IF A063 AND A055 AND BOl AND B<>2 

THEN 100 EC 

•120 XW=WM(LW):F0R I=LW TO I STEP -1:WM(I 

)=WM(I-1):NEXT FL 

•130 IF A=55 THEN WM(0)=WM(0)-22:IF WM(O) 

<CM THEN WM(0)=WM(0)+506 EI 

•135 IF A=63 THEN WM(0)=WM(0)+22:IF WM(O) 

>38905 THEN WM(0)=WM(0)-506 MG 

•140 IF B=2 THEN WM(0)=WM(0)-1:IF WM(0)<C 

M THEN WM(0)=WM(0)+506 OP 

•145 IF B=l THEN WM(0)=WM(0)+1:IF WM(0)>3 

8905 THEN WM(0)=WM(0)-506 HJ 

•147 REM JD 

•148 REM IS IT FOOD? EN 

•149 REM JD 

•150 IF ( PEEK (WM(O)) AND 15)=CF THEN LW=LW 

+1:WM(LW) S XW:G0T0 170 OE 

•160 POKE XW,CB AH 

•170 POKE WM(0) f CW:IF LW>13 THEN 30 FJ 
•180 GOTO 100 BP 

•800 IF PEEK(197)<>64 THEN 800 EB 

•810 PRINT "[c 7][CLEAR]":P0KE 808,112:P0 

KE 657,0: POKE 198,0: SYS 65234: END BM 

WORM FOR C-64 

•1 REM WORM FOR 64— ANIMATE WITH COLOR ME 
MORY FO 

•7 REM JD 

°8 REM DISABLE RUN/STOP AND RESTORE JC 
■9 REM JD 

•10 POKE 792, 193: POKE 808, 239: POKE 657,12 
8 MF 

•20 DIM WM(14) OB 

•27 REM JD 
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•28 REM SET WM() TO WORM'S STARTING POSIT 
ION IN COLOR MEMORY PG 

29 REM JD 

30 CM=55296:WM(0)=55712:WM(1)=55713:WM(2 
)=55752:LW=2 NF 

37 REM JD 

38 REM SET WORM, FOOD, AND BACKGROUND CO 
LOR VALUES JO 
40 CW=7:CB=9:CF=5:POKE 53281 ,CB: PRINT CH 
R$(149)CHR$(147); KP 

47 REM JD 

48 REM FILL THE SCREEN WITH DOTS BB 

49 REM JD 

50 F$="[39"[s Q]"] M JC 

51 FOR 1=0 TO 23: PRINT F$: NEXT: PRINT F$" 
[HOME]"; JM 

52 FOR 1=1063 TO 2023 STEP 40: POKE 1,81: 
NEXT IK 

57 REM JD 

58 REM PUT WORM ON SCREEN GN 

59 REM JD 

60 FOR 1=0 TO LW:POKE WM(I),CW:NEXT HN 

67 REM JD 

68 REM PUT FOOD OUT RANDOMLY BP 

69 REM JD 

70 FOR 1=0 TO 11 MH 
75 F=CM+INT(1000*RND(9)):IF (PEEK(F)AND 
15)<>CB THEN 75 NJ 
80 POKE F,CF:NEXT GN 

97 REM JD 

98 REM READ KEYBOARD AI 

99 REM JD 

100 A=PEEK(197):B=PEEK(653):IF A=63 THEN 
800 BD 

106 REM JD 

107 REM JD 

108 REM LEGAL MOVEMENT? LD 

109 REM JD 

110 IF A<>6 AND A<>3 AND B<>1 AND B<>2 T 
HEN 100 NF 

117 REM JD 

118 REM SHIFT ADDRESSES MA 

119 REM JD 

120 XW=WM(LW):F0R I=LW TO 1 STEP -1:WM(I 
)=WM(I-1):NEXT KN 

127 REM JD 

128 REM MOVE UP? KJ 

129 REM JD 

130 IF A=6 THEN WM(0)=WM(0)-40;IF WM(0)< 
CM THEN WM(0)=WM(0)+10Q0 AH 

132 REM JD 

133 REM MOVE DOWN? DN 

134 REM JD 

135 IF A=3 THEN WM(0)=WM(0)+40:IF WM(0)> 
56295 THEN WM(0)=WM(0)-1000 JF 

•137 REM JD 



ne codes. Do not enter them! Pages 85 and 86 explain these codes 
Ahoy! programs. Refer to these pages before entering any programs! 

138 REM MOVE LEFT? BE 

139 REM JD 

140 IF B=2 THEN WM(0)=WM(0)-1:IF WM(0)<C 

M THEN WM(0)=WM(0)+1000 J J 

142 REM JD 

143 REM MOVE RIGHT? IC 

144 REM JD 

145 IF B=l THEN WM(0)=WM(0)+1:IF WM(0)>5 
6295 THEN WM(0)=WM(0)-1000 CG 

147 REM JD 

148 REM IS IT FOOD? DP 

149 REM JD 

150 IF (PEEK(WM(0))AND 15)=CF THEN LW=LW 
+1:WM(LW)=XW:G0T0 170 JH 

158 REM ERASE WORM'S TAIL PH 

159 REM JD 

160 POKE XW,CB A J 

167 REM JD 

168 REM COLOR WORM'S HEAD OA 

169 REM JD 

170 POKE WM(0),CW:IF LW>13 THEN 30 EC 
180 GOTO 100 CF 

797 REM JD 

798 REM QUIT ROUTINE PJ 

799 REM JD 

800 IF PEEK( 197)064 THEN 800 EL 
810 POKE 53281, 6: PRINT "[c 7][CLEAR]";P0 
KE 792,71: POKE 808, 237: POKE 657,0: POKE 1 
98,0: END NL 

ASSEMBLER ESCAPADES 



FROM PAGE 55 



LISTING 1 



1 IF QQ=1 THEN 140 

2 IF QQ=2 THEN END 

4 :REM 

5 :REM — SAVE SCREEN TO DISK — 

6 :REM =RUPERT-REP0RT=LISTING-1= 

7 :REM 



FO 
DJ 
ML 
KE 
JA 
ML 



10 DEF FNH(X)=INT(X/256) ;REM MSB OF X HF 

20 DEF FNL(X)*X-256*FNH(X) :REM LSB DF 

25 :REM ML 

30 GOSUB 500 :REM: PUT IMAGE ON SCREEN PN 

35 :REM ML 

40 FLNAM$="@:SCRN1" I A 

45 FA$=FLNAM$ ON 

50 SADDR=1024 : EADDR=2024 CL 

60 GOSUB 220 :REM: SAVE SCREEN MEMORY FL 

65 :REM ML 

70 FLNAM$="@:C0LR1" EC 

75 FB$=FLNAM$ PM 

80 SADDR=55296 : EADDR=56296 JK 

90 GOSUB 220 :REM: SAVE COLOR MEMORY NP 

100 :REM — RESTORE SCREEN — DA 
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110 PRINT CHR$(147);PRINT'"PRESS ANY KEY 

TO RESTORE SCREEN" GM 

120 GET AA$ : IF AA$="" THEN 120 NF 

130 QQ=1 : FLNAM$=FB$ : GOTO 600 CJ 

140 QQ=2 : FLNAM$=FA$ : GOTO 600 CL 

160 REM USE KERNAL 'SAVE' ROUTINE LD 

170 REM TO SAVE MEMORY FROM (SADDR) DG 

180 REM TO (EADDR-1) IN FILE "FLNAM$" BO 

200 REM JD 

210 REM JD 

220 AREG-780 : XREG=781 : YREG=782 HE 

230 OPEN 8,8,8,FLNAM$ GP 

240 SVE=65496 :REM $FFD8 ME 

250 ZPTR=251 :REM $FB (ZERO PAGE) JG 

260 POKE ZPTR+1,FNH( SADDR) MK 

270 POKE ZPTR.FNL(SADDR) NO 

280 POKE AREG.ZPTR DE 

290 POKE XREG,FNL( EADDR) KK 

300 POKE YREG,FNH( EADDR) KN 

310 SYS SVE IL 

320 CLOSE 8 NI 

330 RETURN IM 

494 :REM ML 

495 :REM « FILL SCREEN » ML 
500 FOR MEM- 1024 TO 2022 STEP 3 CC 
510 PRINT CHR$(168)CHR$(127)CHR$(168); PP 
520 POKE MEM+54272,RND(0)*16 GH 
530 NEXT IA 
540 RETURN IM 

595 :REM LOAD FLNAM$ BACK INTO MEMORY KL 

596 :REM EXECUTION RESUMES AT START JO 

597 :REM OF PROGRAM IP 

598 :REM -=-=-=-=-=-=-=-=-=_=_=-=-«-=-= FO 
600 LOAD FLNAM$ t 8,l NB 

LISTING 2 

10 REM JD 

20 REM =-= ASSEMBLER SOURCE C0DE=-= JH 

30 REM JD 

210 .;— SAVE SCREEN TO DISK -- DM 

220 . ORG $C000 CH 

230 . JMP ; ENTRY PH 

240 .:SAVE .EQ $FFD8 ;S.A. OF 'SAVE* GO 

243 .: SADDR ; START SAVING CI 

246 . .DB $04 $00 PG 

250 .:EADDR ; END SAVING EO 

253 . .DB $07 $E8 DA 

256 .: ENTRY AB 

260 . LDA ; SADDR ;HI BYTE KL 

265 . STA $FC NO 

270 . LDA :SADDR+$01 ;L0 BYTE PM 

275 . STA $FB NP 

280 . LDA #$FB ;ZER0 PAGE EE 

290 . LDX ;EADDR+$01 ;L0 BYTE HD 

300 . LDY : EADDR ;HI BYTE PJ 

310 . JSR :SAVE OJ 
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320 
330 
340 



;END 



RTS 



.EN 



;T0 BASIC 



LISTING 3 



HL 
OL 
PE 

JD 
AH 
JD 
LM 
MA 
NA 
PD 



10 REM 

20 REM =-= SYMBOL TABLE =~= 

30 REM 

40 $FFD8 :SAVE $C003 : SADDR 

50 $0005 :EADDR $0007 :ENTRY 

60 $C01D :END $0004 :SADDR+$01 

70 $0006 :EADDR+$01 

LISTING 4 

10 REM JD 

20 REM —=DIS ASSEMBLED OBJECT C0DE=-= CL 

30 REM JD 

230 COOO 40 07 CO JMP $0007 AD 

246 C003 04 *#* DA 

247 0004 00 BRK CI 

253 COOS 07 *** EJ 

254 C006 E8 INX EL 
260 C007 AD 03 CO LDA $0003 BA 
265 COOA 85 FC STA $FC IN 
270 COOC AD 04 CO LDA $0004 DE 
275 COOF 85 FB STA $FB 10 
280 C011 A9 FB LDA #$FB GA 
290 CO 13 AE 06 CO LDX $0006 CN 
300 C016 AC 05 CO LDY $0005 GH 
310 0019 20 D8 FF JSR $FFD8 KM 
320 C01C 60 RTS FC 

LISTINGS 

6 REM INSERT THESE STATEMENTS INTO AJ 

7 REM LISTING 1 OA 

60 GOSUB 190 CO 

90 GOSUB 230 CJ 

190 MEM-49152 :REM ORG=$COOO (49152) HK 

200 READ BYTE$:IF BYTE$="D0NE" THEN 230 HF 

210 GOSUB 1000 :REM CONVERT TO DECIMAL PD 

220 POKE MEM, BYTE : MEM-MEM+1 :G0T0 200 OF 

230 OPEN 8,8,8,FLNAM$ GP 

240 SS-49155 :REM STORE SADDR @ $C003 DO 

250 EE=49157 :REM STORE EADDR @ $0005 DI 

260 POKE SS,FNH( SADDR) AN 

270 POKE SS+1,FNL< SADDR) AP 

280 POKE EE,FNH( EADDR) PL 

290 POKE EE+1,FNL(EADDR) NB 

300 :REM ORG IS $0000 (49152) JF 

310 SYS 49152 KF 

320 CLOSE 8 NI 

330 RETURN IM 

400 DATA 40,07,00,04,00,07, E8 MA 

410 DATA AD, 03, CO, 85, FC IN 

420 DATA AD.OA.CO.SS.FB.AQ.FB BE 

430 DATA A E, 06, CO, AC, 05, CO PC 

440 DATA 20,D8,FF,60 NG 

450 DATA DONE LH 

1000 REM - CONVERT 2 DIGIT HEX TO DEC - MA 



IMPORT A MT I Le,terson white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
IIVIl Um I HIM I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



•1010 BYTE=0 BA 

•1020 FOR NN-1 TO 2 MB 

■1030 DD=ASC(MID$(BYTE$,NN,l))-48 BK 

•1040 DD=DD+7*(DD>16) EL 

•1050 BYTE=16*BYTE+DD EE 

•1060 NEXT IA 

•1070 RETURN IM 

By the Numbers 

FROM PAGE A7 

• 1 REM ********************************* DN 
•5 REM ******** LISTING NO. 1 ********** GD 
•10 REM ***** BY THE NUMBERS *********** IN 
•20 REM * a NUMBER CONVERSION PROGRAM ** JG 
•22 REM ******************************** DD 
•25 DIM HEX$(8),BIT$(8),BIT(8),H$(16),B$( 

16) t TEMP$(2) EF 

•27 REM SET UP HEX-BINARY CONVERSION TABL 

ES : AX 

•35 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F BK 

• 36 DATA 0000 , 000 1 , 00 1 , 00 11,0100,0101,01 

10 CD 

•37 DATA 0111,1000,1001,1010,1011,1100,11 

01,1110,1111 AO 

•38 FOR L=l TO 16:READ H$(L):NEXT L KJ 
•39 FOR L=l TO 16: READ B$(L):NEXT L JP 
•40 REM CLEAR SCREEN AND PRINT MENU: HB 
•45 PRINT CHR$( 147): PRINT: PRINT "THIS PRO 

GRAM WILL CONVERT:*' PE 

•50 PRINT: PRINT "[3" "](A) DECIMAL TO HEX 

ADECIMAL" JL 

•60 PRINT "[3" "](B) HEXADECIMAL TO DECIM 

AL" 00 

•70 PRINT: PRINT "[3" "](C) BINARY TO DECI 

MAL" JF 

•80 PRINT "[3" "](D) DECIMAL TO BINARY" GA 
•90 PRINT: PRINT "[3" "](E) HEXADECIMAL TO 

BINARY" GP 

•100 PRINT "[3" "3(F) BINARY TO HEXADECIM 

AL": PRINT BI 

•110 A$="": INPUT "WHAT CONVERSION DO YOU 

WANT (A-F)";A$ PO 

•115 IF A$="" THEN 110 CH 

•116 IF LEN(A$)<>1 THEN 110 AG 

•117 IF A$<"A" OR A$>"F" THEN 110 OJ 
•120 A=ASC(A$)-64:REM TRANSLATE A$ INTO A 

N INTEGER FROM 1 (A) TO 6 (F) KO 

•130 IF A<1 OR A>6 THEN 30-.REM IF A$<A OR 

A$>F THEN MENU LI 

•135 ON A GOTO 140,310,470,670,850,1010 OM 
•136 REM ****** DECIMAL TO HEX ******* GG 
•140 PRINT CHR$(147):PRINT "[7" "]DECIMAL 

-TO-HEX CONVERSION" 01 

•150 PRINT:PRINT "[9" "]RANGE: TO [8"9" 

]": PRINT FA 



160 A$="": PRINT: PRINT "TYPE DECIMAL NUMB 
ER (OR 'M* FOR MENU)": INPUT A$ JB 
165 IF A$= ,m THEN 160 DI 

170 FOR L=l TO 8:HEX$(L)="":NEXT L EN 
180 IF A$="M" THEN 40 DO 

190 FOR L=l TO 8:T$=RIGHT$(A$,L) DJ 
195 IF ASC(T$)<48 OR ASC(T$)>57 THEN 160 NN 
200 NEXT L MO 

205 IF LEN(A$)<1 OR LEN(A$)>8 THEN 160 EH 
210 N«VAL(A$) JO 

220 1=8 DC 

230 TMP=N:N=INT(N/16) KO 

240 TMP=TMP-N*16 LH 

250 IF TMP<10 THEN HEX$(I)=RIGHT$(STR$(T 
MP),1):G0T0 270 LC 

260 HEX$(I)=CHR$(TMP-10+ASC("A")) JF 
270 IF NOO THEM 1=1-1 :G0T0 230 HJ 
280 PRINT "HEX: "; GG 

290 FOR L=l TO 8:PRINT HEX$(L) ; :NEXT L:P 
RINT BP 

300 GOTO 160 CH 

305 REM ****** HEX TO DECIMAL ********* JD 
310 PRINT CHR$(147):PRINT "[7" "]HEX-TO- 
DECIMAL CONVERSION" LE 

320 PRINT: PRINT "[9" "]RANGE: TO [8"F" 
]": PRINT KI 

330 A$="": PRINT: PRINT "TYPE HEX NUMBER ( 
OR 'M'FOR MENU):": INPUT A$ 10 

340 IF A$="M" THEN 40 DO 

350 IF LEN(A$)>8 THEN 330 EB 

360 N=0 DD 

370 FOR L=l TO LEN(A$) OB 

380 HEX$(L)=MID$(A$,L,1) KP 

385 IF HEX$(L)<"0" OR HEX$(L)>"F" THEN 3 
30 CP 

386 IF HEX$(L)>"9" AND HEX$(L)<"A" THEN 
330 PA 
390 IF HEX$(L)<="9" THEN N=N*16+VAL(HEX$ 
(L)):GOTO 430 PE 
400 IF HEX$(L)<"A" THEN 330 LL 
410 IF HEX$(L)>"F" THEN 330 MK 
420 N=N*16+ASC(HEX$(L))-ASC("A")+10 BJ 
425 IF N<0 THEN 330 PK 
430 NEXT L MO 
440 PRINT "DEC: ";N: PRINT I J 
450 GOTO 330 CC 
470 REM ***** BINARY TO DECIMAL ******* AH 
490 PRINT CHR$(147):REM CLEAR SCREEN EG 
500 PRINT: PRINT "[6" "] BINARY-DECIMAL CO 
NVERSION" HJ 
510 A$="":PRINT:PRINT "ENTER AN 8-BIT BI 
NARY NUMBER" PB 
515 INPUT "(OR 'M' FOR MENU): " ;A$: PRINT JM 
517 IF A$="M" THEN 40 DO 
520 IF LEN(A$)<>8 THEN 510 BL 
530 FOR L=8 TO 1 STEP -1 BB 
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•540 BIT$(L)=MID$(A$,L,1) IN 

■550 IF BITSCDO'V AND BIT$(L)<>"1" THE 
N 510 MA 

•560 NEXTL:F0RU1T08:BIT(L)»VAL(BIT$(L)) ON 
•590 NEXTL:ANS=0:M=256:FORL=1T08 MA 
•630 M=M/2:ANS=ANS+BIT(L)*M:NEXTL BE 
•650 PRINT "DECIMAL: ";ANS:G0T0510 MP 
•670 REM **** DECIMAL TO BINARY ******* GN 
•680 PRINT CHR$(147):REM CLEAR SCREEN EG 
•690 PRINT: PRINT "[5" "] DECIMAL-BINARY CO 
NVERSI0N": PRINT PG 

•700 PRINT "[9" "] RANGE: TO 255": PRINT GE 
•710 PRINT:BM$="":A$="":INPUT"TYPE A NUMB 
ER (OR »M' FOR MENU)";A$:IFA$="M"THEN40 CA 
•715 IF A$="0" THEN 840 EG 

•720 IF VAL(A$)<1 OR VAL(A$)>255 THEN 710 EB 
•730 NR=VAL(A$):F0RL=8T01STEP-l:Q=NR/2 OK 
•760 R=Q-INT(Q) FO 

•770 IF R=0 THEN BIT$(L)="0":G0TO 790 HJ 
•780 BIT$(L)="1" NE 

•790 NR=INT(Q): NEXTL LB 

•810 PRINT "BINARY: ";F0RL=1T08:PRINTBIT$ 
(L);:NEXTL:PRINT:GOT0710 IA 

•840 FOR L=l TO 8:BIT$(L)="0":NEXT L:G0T0 

810 DA 

•845 REM ******* HEX TO BINARY ******** KD 
•850 PRINT CHR$( 147): PRINT "[7" "jHEX-TO- 
BINARY CONVERSION" :PRINT AH 

•860 PRINT"! 12" "] RANGE: TO FF": PRINT DM 
•870 PRINT: PRINT "TYPE HEX NUMBER (OR 'M' 
FOR MENU) :":A$="": INPUT A$ JG 

•880 IF A$="M" THEN 40 DO 

•890 IF LEN(A$)>2 OR LEN(A$)<1 THEN 870 EB 
•900 HEX$(1)="":HEX$(2)="":F0RL=1T0LEN(A$ 
):HEX$(L)=MID$(A$,L,1) MJ 

•930 IFHEX$(L)<"O"0RHEX$(L)>"F"THEN87O CE 
•940 IFHEX$(L)>"9"ANDHEX$(L)<"A"THEN870 DN 
•960 NEXTL:IF HEX$(2)="" THEN HEX$(2)=HEX 
$(1):HEX$(1)="0" LM 

•970 FOR L=l TO 16: IF HEX$(1)=H$(L) THEN 
BIT$(1)=B$(L) HC 

•980 NEXTL:F0R L=l TO 16: IF HEX$(2)=H$(L) 

THEN BIT$(2)=B$(L) IG 

•995 NEXTL: PRINT: PRINT "BIN: "; EB 
•1000 PRINT BIT$(l);BIT$(2):GOTO 870 GF 

PROGRAMMERS... 

We're always interested in looking at top-quality pro- 
grams for the Commodore home computers. However, 
a great many factors other than the talent of the pro- 
grammer contribute toward making a program top-qual- 
ity. Before submitting a program to Ahoy!, we recom- 
mend that you send a stamped and self-addressed let- 
ter-size envelope to Ahoy! Writer's and Programmer's 
Guidelines, Ion International Inc., 45 West 34th Street - 
Suite 407, New York, NY 10001. 
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•1010 REM ***** BINARY TO HEX ******** JE 
•1020 PRINT CHR$( 147): PRINT CI 

•1030 PRINT" [8" "] BINARY-HEX CONVERSION" CA 
•1040 PRINT:PRINT "ENTER AN 8-BIT BINARY 

NUMBER" FL 

•1050 A$="":INPUT "(OR 'M' FOR MENU): "jA 

$: PRINT :IFA$="M"THEN40 EF 

•1070 IF LEN(A$)<>8 THEN 1040 DC 

•1100 F0RL=8T01STEP-1:BIT$(L)=MID$(A$,L,1 

) :IFBrr$(L)<>"0"ANDBIT$(L)<>"l"THEN510 KE 
•1110 NEXTL:BIT$=BIT$(1)+BIT$(2)+BIT$(3)+ 

BIT$(4)+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) BG 
•1120 T1$=LEFT$(BIT$,4):T2$=RIGHT$(BIT$,4 

):F0RL=1T016 NM 

•1130 IF T1$=B$(L) THEN HEX$(1)=H$(L) IL 
•1150 NEXTL: FOR L=l TO 16: IF T2$=B$(L) TH 

EN HEX$(2)=H$(L) NK 

•1170 NEXTL:PRINT "HEX: ";HEX$(1) ;HEX$(2) LF 
•1180 GOTO 1040 FO 

RAID 

FROM PAGE 60 CASSETTE BOOT 

•10 PRINT CHR$(147);CHR$(5):P0KE 53280,2: 

POKE 53281,0 NI 

•40 PRINT CHR$(19);"P0KE 8192,0: POKE 44,3 

2: NEW" GK 

•50 PRINT CHR$(17);CHR$(17);"LOAD"CHR$(34 

)"RAID"CHR$(34) LG 

•60 POKE 198,10 NH 

•70 DATA 19,13,13,32,32,32,82,85,78,13 ME 
•80 FOR 1=1 TO 10: READ X:P0KE 630+1, X:NEX 

T HM 

DISK BOOT 

•10 PRINT CHR$( 147) ;CHR$(5): POKE 53280,2: 

POKE 53281,0 NI 

•20 FOR 1=1 TO 6: PRINT CHR$(17) :NEXT LJ 
•30 FOR 1=1 TO 16:PRINT CHR$(29) ; :NEXT:PR 

INT"LOADING" MN 

•40 PRINT CHR$(19);CHR$(31);"POKE 8192,0: 

POKE 44,32: NEW" CO 

•50 PRINT CHR$(17);CHR$(17);"LOAD"CHR$(34 

)"RAID ,, CHR$(34)",8" BK 

•60 POKE 198,10 NH 

•70 DATA 19,13,13,32,32,32,82,85,78,13 ME 
•80 FOR 1=1 TO 10: READ X:POKE 630+1, X:NEX 

T HM 

MAIN PROGRAM 

•1 P0KE5328O,l:POKE53281,O:POKE646,l NN 

•9 REM 100-MAINLINE KE 

•10 REM 1000-0NE-TIME INITIALIZATION AO 

•11 REM 1100-VARIABLES FOR BACKGROUND PH 

•12 REM 1200-SETUP CHAR SET DM 



=13 REM 1300-DISPLAY SCORE 00 

■14 REM 1400-DISPLAY BACKGROUND GK 
■17 REM 1700-DISPLAY INSTRUCTIONS HF 
•19 REM 1900-GET PLAYER INFO HO 

•21 REM 2100-READ MACHINE LANGUAGE PA 
•22 REM 2200-INIT MACHINE CODE PO 
•25 REM 2500-CRASH SOUND/DISPLAY MF 
•110 GOSUB 1000:REM ONE-TIME INIT MC 
•120 GOSUB 1100:REM VARS FOR BACKGROUND NA 
•130 GOSUB 1700: REM DISPLAY INSTRUCTIONS A J 
•140 GOSUB 1200: REM SETUP CHAR SET NF 
•300 GOSUB 1900: REM GET PLAYER INFO CC 
-400 GOSUB 1400: REM DISPLAY BACKGROUND DG 
•420 GOSUB 2200: REM INIT MACHINE CODE NG 
•425 JV=PEEK(56320)AND31:IFJV=31THEN425 FF 
•430 SYS 49664: IF PEEK(49197)=0 THEN GOSU 

B 2500 J J 

•435 HX=0:F0R 1=1 TO 29: IF PEEK(CRT+HL(I) 

)=83 OR HX(PL,I)<>0 THEN 445 FI 

•440 PT(PL)=PT(PL)+10:HX(PL,I)=1:HX=1 PA 
•445 NEXT I A 

•450 IF PEEK(49197)=0 THEN LI(PL)=LI(PL)- 

1:G0T0 470 MK 

•460 PT(PL)=PT(PL)+500:LV(PL)=LV(PL)+1 01 
•465 FOR 1=1 TO 29:HX(PL,I)=0:NEXT HJ 
•470 IF PEEK (491 52 )=0 AND HX=1 THEN PT(PL 

)=PT(PL)+100 GN 

•480 GOSUB 1300: REM DISPLAY SCORE IJ 
•485 IF TL=0 THEN 300 GD 

•490 GOTO 400 CA 

•999 END IC 

•1000 REM ONE-TIME INITIALIZATION KI 

•1005 P0KE53280,2:P0KE53281,0:P0KE646,1 BI 
•1010 X=RND(-TI):DIM ML{16) ,HL(29) ,HX(9,2 

9):CT=0 OP 

•1015 FOR 1=1 TO 16:READ V MP 

•1020 IF V<0 THEN GOSUB 50000: GOTO 1030 IK 
•1025 ML(I)=V:CT=CT-V HL 

•1030 NEXT I A 

■1035 DATA 123,126,133,136,143,146,153,15 

6,-1116 LN 

•1040 DATA 843,846,853,856,863,866,873,87 

6,-6876 HF 

•1045 FOR 1=1 TO 29: READ V MP 

•1050 IF V<0 THEN GOSUB 50000: GOTO 1060 IP 
•1055 HL(I)=V:CT= S CT-V EK 

•1060 NEXT IA 

•1065 DATA 81,88,91,98,101,108,111,118,-7 

96 MI 

•1070 DATA 881,888,891,898,901,908,911,91 

8,-7196 DH 

■1075 DATA 249,250,269,270,729,730,749,75 

0,-3996 MP 

•1080 DATA 483,499,500,516,517,-2515 EA 
•1090 SID=54272 JK 

•1092 CRT=1024:C0=55296:MC(1)=4:MC(2)=12: 

MC(3)=8:MC(4)=3 DH 



•1094 DEF FNR(X):=INT(RND<1)*X)+1 PC 
•1096 SID=54272 JK 

•1098 RETURN IM 

•1100 REM VARS FOR BACKGROUND HE 

■1110 RV$=CHR$(18):RF$=CHR$(146):W1$=RV$+ 

" "+RF$+"[8" "]":W2$=RV$+" "+RF$ FG 
•1120 L1$=RV$+"[40 M "]"+RF$ MN 

•1130 L2$=W1$+W2$+W1$+W2$+W1$+W2$+W1$+W2$ CB 
■1140 L3$=W1$+"[10" "]"+W2$-fWl$+"[10" "]" 

+W2$ AP 

•1150 L4$=W2$+W2$+W2$+W2$+"[5" "]"+W2$+Wl 

$+W2$+Wl$+W2$+W2$+"[5" "]" AN 

•1160 L4$=L4$+W2$+W2$+W2$+W2$ MN 

•1170 L5$=W1$+W2$+W1$+"[10" "]"+W2$+Wl$+W 

2$ HH 

•1180 CD$=CHR$(17):CU$=CHR$(145):CL$=CHR$ 

(157):CR$=CHR$(29):CS$=CHR$(147) NK 
•1185 HM$=CHR$(19) PF 

•1199 RETURN IM 

•1200 REM COPY CHARSET GE 

•1202 POKE 56334 ,PEEK(56334)AND254 DN 
•1205 POKE 1,PEEK(1)AND251 IM 

•1210 SYS 41 ">67 KO 

•1215 POKE 1,PEEK(1)0R4 BE 

•1220 POKE 56334, PEEK(56334)0R1 PD 
•1225 P0KE2864,0:P0KE2865,231:P0KE2866,12 

6:P0KE2867,60 AG 

•1230 POKE 2868, 24: POKE 2869,0: POKE 2870, 

0:POKE 2871,0 ND 

•1235 POKE 2696,0: POKE 2697, 126: POKE 2698 

,120: POKE 2699,120 EP 

•1240 POKE 2700, 27: POKE 2701,27: POKE 2702 

,120: POKE 2703,0 EO 

•1245 POKE 53272, (PEEK(53272)AND240)0R2 ID 
•1299 RETURN IM 

•1300 REM DISPLAY SCORES GK 

•1302 PRINT CS$;CD$ "PLAYER SCORE LEVEL 

LIVES LEFT" FL 

■1305 PRINT" [6"-"] [5"-"] [5"-"] [10"- 

"]" DA 

•1310 TL=0:FOR I=1T0NP:PL$=" "+STR$(I)+" 

[3" "]" HJ 

•1315 SC$=STR$(PT(I))+" " BH 

•1320 IFLEN(SC$)<7THENSC$=" "+SC$:G0T0132 

JJ 

•1325 LV$=STR$(LV(I))+" " AP 

•1330 IFLEN(LV$)<7THENLV$=" "+LV$:G0T0133 

AM 

•1335 TL=TL+LI(I):LI$="[4" "] ,, +STR$(LI(I) 

):IFLI(I)=0THENLI$="[3" "]*DEAD*" HM 

•1340 PRINT PL$;SC$;LV$;LI$:NEXT OJ 

•1345 IF TL=0 THEN 1375 HK 

•1350 PL=PL+1:IF PL>NP THEN PL=1 HE 

•1355 IF LI(PL)=0 THEN 1350 GL 
•1360 IF NP>1 THEN PRINT CD$"NEXT PLAYER 

IS PLAYER"; PL NG 

•1365 SYS 49673: FOR 1=1 TO 500: NEXT I J 
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1370 LV=LV(PL):RETURN KC 

1375 PRINT CD$;CD$"ANOTHER GAME? "; EN 

1380 GET X$;IF X$O tt Y"AND X$<>"N"THEN 13 

80 CN 

1385 PRINT X$:IF X$="N" THEN END LF 

1390 RETURN IM 

1400 REM DISPLAY BACKGROUND LL 

1401 B0%=FNR(16)-1:P0KE53280,B0% OP 



1402 PRINT CS$ 
1404 PRINT Ll$ 
NEXT: PRINT L3$ 



P0KE53281,0:P0KE646,7 LG 
:FOR 1=1 TO 4: PRINT L2$;: 

GD 

1406 FOR 1=1 TO 4:PRINT L2$; :NEXTrPRINT 
L4$;: PRINT L5$; CA 

1408 PRINT L4$;:F0R 1=1 TO 4tPRINT L2$; : 
NEXT KO 

1410 PRINT L3$;:F0R 1=1 TO 4:PRINT L2$;: 
NEXT: PRINT Ll$; BH 

1420 PRINT ,, PLAYER";PL;"[7" "] LEVEL" ;LV;H 
M$ IK 

1425 IX=0 IK 

1430 FOR 1=1 TO 16:IX-IX+1:IF IX>4 THEN 
IX=1 PN 

1435 POKE CRT+ML(I),102:P0KE CO+ML(i),MC 
(IX):NEXT:NH=0 DM 

1440 FOR 1=1 TO 29: IF HX(PL,I)<>0 THEN 1 
447 AC 

1445 POKE CRT+HL(I),83:P0KE C0+HL(I),10: 
NH=NH+1 FK 

1447 NEXT IA 

1450 POKE CRT+481,81:P0KE CO+481,14 LB 
1499 RETURN IM 

1700 REM— DISPLAY INSTRUCTIONS LK 

1702 PRINT CS$;CD$"[17" "]RAID [3'M"]" JM 
1705 PRINT CD$"[8" "](C) 1983 BY LARRY C 
OATS" IA 

1710 PRINT CD$"COLLECT ALL THE HEARTS WH 
ILE AVOIDING" JF 

1715 PRINT"THE BUTTERFLIES. THEN EXIT T 
HE SCREEN" FH 

1720 PRINT"ON THE RIGHT." HI 

1725 PRINT CD$"SCORING:" NP 

1730 PRINT" [3" "]10 POINTS PER HEART" IC 
1735 PRINT" 100 POINTS FOR GETTING LAST 
HEART" dh 

1740 PRINT" 500 POINTS FOR SAFE EXIT" CJ 
1745 PRINT CD$;CD$ BP 

1750 GOSUB 2 100: REM LOAD MACHINE LANGUAG 
E EO 

1760 SYS 49670: REM PLAY SONG NJ 

1799 RETURN IM 

1900 REM GET PLAYER INFO DK 

1902 NP=0: PRINT: PRINT CD$"HOW MANY PLAYE 
RS[SS](l-9)7 "; OB 

1905 GET NP$:IF NP$=""THEN 1905 FO 
1910 IF NP$<"1"0R NP$>"9"THEN 1905 KP 
1915 PRINT NP$:NP=VAL(NP$) ML 

1920 PRINT CD$ "WHAT SKILL LEVEL (1-9)? " 
; FK 
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•1925 GET X$:IF X$=""THEN 1925 ND 

•1950 IF X$<"1"0R X$>"9"THEN 1925 ME 
•1955 PRINT X$:LV=VAL(X$) DA 

•1960 FOR 1=1 TO NP:LV(I)=LV:PT(I)=0:LI(I 

)=5 KO 

•1965 FOR J=l TO 29:HX(I,J)=0:NEXT GA 
•1970 NEXT IA 

•1995 PL=1:PT=0: RETURN DK 

•2100 REM LOAD MACHINE LANG HM 

•2110 PRINT CD$;"[4" "][3"*"] LOADING MAC 

HINE LANGUAGE [3 M **T;CD$ CB 

•2120 FOR 1=49408 TO 50716: READ V HH 
•2130 IF V<0 THEN GOSUB 50000: GOTO 2150 IK 
•2140 PRINT TAB(15);I:PRINT CU$; :POKE I,V 

:CT=CT-V EI 

•2150 NEXT IA 

•2200 REM INIT ML STORAGE DB 

•2202 P0KE49152.NH GC 

■2205 P0KE49154,1505/256:P0KE49153,1505-P 

EEK{49154)*256 10 

•2210 X=49157:F0R 1=1 TO 16:ML=CRT+ML(I) DO 
•2215 POKE X+l, ML/256: POKE X,ML-PEEK(X+1) 

*256:X=X+2:NEXT NG 

•2220 X=RND(-TI):PQKE49193,FNR(256)-1:P0K 

E49194,FNR(256)~1 PH 

•2225 P0KE49197,0:P0KE49216,0 BC 

•2230 DL%=255-12*LV:IF DL%<0 THEN DL%=0 GC 
•2235 POKE 49217, DL% HN 

•2299 RETURN IM 

•2500 REM CRASH EFFECTS OD 

•2510 F0RIX=0T028:POKESID+IX,0:NEXT DP 
■2520 POKE SID+24,15 AH 

• 2530 POKESID , 20 : POKESID+1 , 30 : POKESID+5 , 

:P0KESID+6, 15*16+9 EP 

•2535 SP%=PEEK( 53272) IH 

•2537 SQ%=FNR(256)-l:IF(SQ7 o AND240)=(SP%AN 

D240)OR(SQ%AND15)=(SP%AND15)THEN2537 JJ 
•2540 POKESID+4,129:POKE53272,SQ% PK 
•2550 FORIX=1T020 : NEXT :P0KESID+4, 128 AH 
•2560 FORIX=1T03000:NEXT CN 

•2570 P0KE53272,SP% IM 

•2599 RETURN IM 

•20000 A=49408:ZH%=A/256:ZL%=A-(256*ZH%) : 

P0KE49152,ZH%:P0KE49153,ZL% HK 

■ 20005 B=3O000 : ZH%=B/256 : ZL%=B-( 256*ZH%) : 
P0KE49154,ZH%:P0KE49155,ZL% OP 

■20010 A=PEEK(49153)+(256*PEEK(49152)):IF 

A=0 THEN END FA 

•20015 B=PEEK(49155)+(256*PEEK(49154)) JL 
•20020 C=A+15:D=C+1:IF C>=50716 THEN C=50 
716:D=0 KF 

•20025 zh%=d/256:zl%=d-(256*zh%):p0ke 491 
52,zh%:p0}ce49153,zl% ci 

•20030 d=b+10:zh%=d/256:zl%=d-(256*zh%) :p 
oke 49154,zh%:p0ke49155,zl% ge 

• 20040 print" [clear ] [ down ] [ down ] " ; b ; "data 
"; og 

•20050 for i=a to c:i$=str$(peek(i)) :j$=r 



IGHT$(I$,LEN(I$)-1) OK 

20060 PRINT J$;","; OE 

20070 NEXT: PRINT "[LEFT] ": PR I NT "GOTO 20 
010" PP 

20080 PRINT" [HOKE]"; CE 

20090 POKE 631, 13: POKE 632, 13: POKE 198,2 HG 
20095 END IC 

21000 REM DELETE ML NI 

21005 B=30000:ZH%=B/256:ZL%=B-(256*ZH%) : 
POKE49154,ZH%:POKE49155,ZL% OP 

21015 B=PEEK(49155)+(256*PEEK(49154)) JL 
21030 D=B+10:ZH%=D/256:ZL%=D-(256#ZH%) :P 
OKE 49154, ZH%:P0KE49155,ZL% GE 

21040 PRINT"[CLEAR][DOWN][DOWN]";B AM 
21070 PRINT "[LEFT] ":PRINT"GOT0 21015" EG 
21080 PRINT" [HOME]"; CE 

21090 POKE 631,13:POKE 632,13:P0KE 198,2 HG 
30000 DATA 226,219,98,91,219,215,91,215, 
217,215,89,87,215,254,87,254,-2792 CP 
30010 DATA 226,219,98,219,228,219,100,91 
,230,224,102,217,231,219,231,219,-3073 HG 
30020 DATA 231,219,103,91,226,217,98,89, 
226,219,226,219,226,219,98,91,-2798 FP 
30030 DATA 255,255,226,219,98,91,219,215 
,91,215,217,215,89,87,215,254,-2961 GE 
30040 DATA 87,254,226,219,98,219,228,219 
,100,91,230,224,102,217,231,219,-2964 PM 
30050 DATA 231,219,231,219,103,91,226,21 
7,98,89,226,219,226,219,226,219,-3059 HO 
30060 DATA 98,91,228,224,100,96,226,219, 
98,91,224,217,96,89,219,215,-2531 GI 
30070 DATA 91,87,224,217,96,89,219,215,9 
1,87,217,214,89,86,219,215,-2456 OH 
30080 DATA 219,215,219,215,91,87,215,210 
,87,82,215,210,215,210,215,210,-2915 PD 
30090 DATA 87,82,226,219,98,91,219,215,9 
1,215,217,215,89,87,215,254,-2620 NM 
30100 DATA 87,254,226,219,98,91,228,225, 
100,97,230,226,102,98,231,228,-2740 MD 
30110 DATA 103,100,230,226,102,98,231,22 
8,103,100,228,225,100,97,230,226,-2627 CI 
30120 DATA 102,98,231,228,103,100,230,22 
6,102,98,228,225,100,97,226,219,-2613 IN 
30130 DATA 98,91,217,217,89,217,226,217, 
98,89,225,215,97,87,226,214,-2623 BN 
30140 DATA 226,214,226,214,98,86,226,214 
,98,86,226,214,226,214,226,214,-3008 MP 
30150 DATA 98,86,255,255,255,255,255,255 
, 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , -3754 FJ 
30160 DATA 76,126,194,76,78,196,76,125,1 
96,76,142,196,0,39,41,80,-1717 DF 
30170 DATA 255,255,255,255,255,82,2,42,2 
55,80,0,40,255,81,1,255,-2368 BI 

30180 DATA 255,255,255,255,255,81,1,255, 
255,81,1,255,255,255,255,255,-3224 IC 
30190 DATA 255,255,255,255,255,42,42,255 
,255,40,40,255,255,255,255,255,-3224 EP 
30200 DATA 0,231,126,60,24,0,0,0,0,0,0,2 



4,60,126,231,0,-882 AI 

■30210 DATA 3,0,0,34,194,0,0,34,194,0,0,3 

4,194,0,0,0,-687 NJ 

•30220 DATA 15,32,32,32,255,104,30,24,134 

,126,250,6,172,243,230,143,-1828 FA 
■30230 DATA 248,46,134,142,150,159,168,17 

9,189,200,212,225,238,253,32,188,-2763 LG 
■30240 DATA 194,24,173,45,192,109,64,192, 

240,1,96,32,38,196,32,130,-1758 JI 
■30250 DATA 195,173,64,192,240,1,96,32,38 

,196,238,37,192,173,37,192,-2096 AN 
-30260 DATA 41,1,10,10,10,168,162,0,185,6 

4,194,157,48,11,200,232,-1493 IP 

•30270 DATA 224,8,208,244,169,11,141,18,2 

12 , 76 , 126, 194 , 56 , 173 , 1 , 192 , -2053 PF 
•30280 DATA 233,41,133,251,133,253,173,2, 

192,233,0,133,252,24,105,212,-2370 KE 
•30290 DATA 133,254,160,41,140,68,192,173 

,0,220,41,15,170,188,16,194,-2005 KJ 
•30300 DATA 16,3,76,59,195,177,251,201,10 

2 , 208 , 4 , 238 , 64 , 192 , 96 , 201 , -2083 PL 
•30310 DATA 83,208,9,206,0,192,32,52,196, 

76,3,195,201,32,240,3,-1728 KK 

•30320 DATA 76,76,195,140,68,192,160,41,1 

69,32,145,251,177,253,172,68,-2215 IJ 
•30330 DATA 192,145,253,169,81,145,251,15 

2,24,101,251,141,1,192,165,252,-2515 HK 
•30340 DATA 105,0,141,2,192,173,0,192,208 

,17,173,1,192,201,6,208,-1811 PO 

■30350 DATA 10,173,2,192,201,6,208,3,238, 

45,192,172,68,192,177,253,-2132 EL 
•30360 DATA 24,105,1,41,15,208,2,169,1,14 

5,253,96,173,0,220,41,-1494 JK 

•30370 DATA 15,170,188,32,194,16,3,76,59, 

195,177,251,201,83,240,4,-1904 KE 
■30380 DATA 201,32,208,3,76,239,194,173,0 

,220,41,15,170,188,48,194,-2002 NH 
•30390 DATA 16,3,76,59,195,177,251,201,83 

,240,4,201,32,208,188,76,-2010 JL 
•30400 DATA 239,194,162,30,142,63,192,189 

,6,192,141,4,192,189,5,192,-2132 HB 
•30410 DATA 141,3,192,32,179,195,174,63,1 

92,173,4,192,157,6,192,173,-2068 MG 
•30420 DATA 3,192,157,5,192,202,202,142,6 

3,192,173,64,192,208,3,138,-2128 PM 
■30430 DATA 16,213,96,56,173,3,192,233,40 

,133,251,133,253,173,4,192,-2161 PI 
•30440 DATA 233,0,133,252,24,105,212,133, 

254,169,81,162,3,188,12,194,-2155 LI 
■30450 DATA 209,251,240,19,202,16,246,32, 

13,196,41,3,170,188,12,194,-2032 JK 
•30460 DATA 169,32,209,251,240,4,96,238,6 

4,192,140,68,192,160,40,169,-2264 MP 
•30470 DATA 32,145,251,177,253,172,68,192 
,145,253,169,102,145,251,152,24,-2531 JH 

■30480 DATA 101,251,141,3,192,165,252,105 
,0,141,4,192,96,173,41,192,-2049 CO 

•30490 DATA 42,77,41,192,106,238,42,192,1 
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Tn onto* nrtO Dine you must enter D0S Booi m the usual manner - prescribed on pages 85 and 86, then enter 
1U cfllcl UUO NUS... the main program by using Flankspeed (see page 86). 



09,42,192,80,3,238,42,192,-1828 CO 
•30500 DATA 141,41,192,41,127,96,174,65,1 

92,240,8,160,64,136,208,253,-2138 EI 
•30510 DATA 202,208,248,96,169,20,141,15, 

212,169,1,141,19,212,169,200,-2222 HP 
•30520 DATA 141,20,212,169,15,141,24,212, 

169,17,141,18,212,96,169,0,-1756 CI 
•30530 DATA 133,251,133,253,169,208,133,2 

52,169,8,133,254,162,8,160,0,-2426 HF 
•30540 DATA 177,251,145,253,200,208,249,2 

30,252,230,254,202,208,240,162,21,-3282 ED 
•30550 DATA 189,80,194,157,69,192,202,16, 

247,32,159,196,96,169,50,141,-2189 ND 
•30560 DATA 91,192,169,193,141,92,192,32, 

110,196,32,170,197,96,169,0,-2072 AG 
•30570 DATA 141,91,192,169,193,141,92,192 

,32,110,196,32,170,197,96,169,-2213 FK 
•30580 DATA 4,44,69,192,240,24,173,70,192 

,141,2,212,173,71,192,141,-1940 GJ 
•30590 DATA 3,212,173,72,192,141,5,212,17 

3,73,192,141,6,212,169,2,-1978 AE 
•30600 DATA 44,69,192,240,24,173,74,192,1 

41,9,212,173,75,192,141,10,-1961 FI 
•30610 DATA 212,173,76,192,141,12,212,173 

,77,192,141,13,212,169,1,44,-2040 GN 
•30620 DATA 69,192,240,24,173,78,192,141, 

16,212,173,79,192,141,17,212,-2151 PD 
•30630 DATA 173,80,192,141,19,212,173,81, 

192,141,20,212,162,3,189,82,-2072 KL 
•30640 DATA 192,157,21,212,202,16,247,173 

,91,192,141,93,192,173,92,192,-2386 MN 
•30650 DATA 141,94,192,96,169,4,44,69,192 

,240,42,32,211,197,201,255,-2179 LJ 
•30660 DATA 208,1,96,201,254,208,8,169,0, 

141,4,212,76,69,197,174,-2018 MA 

•30670 DATA 95,192,142,0,212,174,96,192,1 
42,1,212,10,42,41,1,13,-1565 KE 

•30680 DATA 86,192,141,4,212,169,2,44,69, 

192,240,42,32,211,197,201,-2034 DK 
•30690 DATA 255,208,1,96,201,254,208,8,16 
9,0,141,11,212,76,118,197,-2155 IM 
•30700 DATA 174,95,192,142,7,212,174,96,1 
92,142,8,212,10,42,41,1,-1740 LI 

•30710 DATA 13,87,192,141,11,212,169,1,44 

,69,192,240,42,32,211,197,-1853 EF 
•30720 DATA 201,255,208,1,96,201,254,208, 
8,169,0,141,18,212,76,167,-2215 CE 
•30730 DATA 197,174,95,192,142,14,212,174 

,96,192,142,15,212,10,42,41,-1950 ML 
•30740 DATA 1,13,88,192,141,18,212,169,0, 
96,173,69,192,41,7,240,-1652 JM 

•30750 DATA 33,173,91,192,141,93,192,173, 
92,192,141,94,192,32,20,197,-2048 BP 
•30760 DATA 201,255,240,14,174,90,192,160 
,0,136,208,253,202,208,248,76,-2657 KP 
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'3f)770 DATA 189,197,96,173,93,192,141,224 

,197,173,94,192,141,225,197,173,-2697 FA 
•30780 DATA 48,193,238,93,192,208,3,238,9 

4,192,201,254,176,3,32,242,-2407 EE 
•30790 DATA 197,96,170,41,15,168,185,102, 

194,141,95,192,185,114,194,141,-2230 AA 
•30800 DATA 96,192,138,74,74,74,74,24,109 

,89,192,41,7,73,7,168,-1432 LA 

•30810 DATA 240,9,78,96,192,110,95,192,13 

6,208,247,138,96,-1837 BL 

•50000 IF VOCT THEN PRINTERROR IN DATA 

LINE f';PEEK(64)*256+PEEK(63):END BI 
•50010 1=1-1 ;CT=0: RETURN JG 

DOS PLUS 



FROM PAGE 39 
•40 IFTEM=OTHENTEM 

,1 
•41 POKE 53230,001 
•42 POKE 53012,008 
•43 POKE 51329,096 
•44 POKE 53040,018 
•45 POKE 53063,018 
•46 POKE 50999,144 
•47 POKE 51069,144 
•48 POKE 51057,005 
•50 SYSTEM 



DOS tUMT 

[=49152 :L0AD"D0S PLUS", 8 

FD 
:REM AUTO-VERIFY IF 1 AH 
:REM DEFAULT DRIVE # OF 
:REM UPPER CASE 1525 OA 
:REM REVERSE VIDEO @$ 01 
:REM "[6" "]" " DC 
:REM BLACK HEX #'S GH 
:REM "[4" "]" " HJ 
:REM WHITE ASCII CHRS. FK 

ID 

















ntts nxis 


First 


byte: COOO 










Last byte: CFFE 




COOO: 


A2 


02 


BD 


FE 


CE 


95 


7C 


CA OD 




COOS: 


10 


F8 


AD 


26 


03 


8D 


F3 


CF 39 




C010: 


AD 


27 


03 


8D 


F4 


CF 


78 


AD 60 




CO 1 8 : 


14 


03 


8D 


EF 


CF 


AD 


15 


03 42 




C020: 


8D 


FO 


CF 


A9 


07 


8D 


14 


03 C3 




C028: 


A9 


CI 


8D 


15 


03 


58 


A9 


FF 3B 




C030: 


AO 


CD 


20 


IE 


AB 


68 


68 


4C A5 




C038: 


68 


CB 


8D 


9D 


03 


8E 


9C 


03 C8 




C040: 


BA 


BD 


01 


01 


C9 


8C 


DO 


16 F7 




C048; 


BD 


02 


01 


C9 


A4 


DO 


OF 


A2 F9 




C050: 


00 


AD 


9D 


03 


DD 


9E 


CD 


FO D9 




CO 58: 


16 


E8 


EO 


08 


90 


F6 


AD 


9D 13 




C060: 


03 


18 


AE 


9C 


03 


C9 


3A 


BO 7E 




C068: 


03 


4C 


80 


00 


4C 


8A 


00 


8D 9C 




C070: 


9F 


03 


8E 


96 


03 


AD 


14 


CF CC 




C078: 


85 


BA 


20 


88 


C6 


AE 


96 


03 70 




C080: 


8A 


OA 


AA 


BD 


6B 


CD 


48 


BD BC 




C088: 


6A 


CD 


48 


60 


AD 


01 


02 


FO OB 




C090: 


4A 


C9 


3A 


FO 


19 


A2 


OE 


BD 57 




C098: 


9E 


CD 


FO 


08 


CD 


A7 


02 


FO 66 




COAO: 


DF 


E8 


10 


F3 


A9 


IF 


AO 


CE A5 




C0A8: 


20 


IE 


AB 


4C 


68 


CB 


A2 


08 BD 




CO BO: 


BD 


9E 


CD 


CD 


02 


02 


FO 


C8 66 




C0B8: 


E8 


EO 


OE 


90 


F3 


BO 


E5 


A5 51 



BA 


20 


Bl 


FF 


A9 


6F 


85 


B9 


A5 


C290; 


20 


FO 


F7 


60 


68 


68 


68 


68 


9B 


20 


93 


FF 


AO 


00 


B9 


01 


02 


D9 


C298: 


AC 


B9 


CI 


A9 


20 


20 


D2 


FF 


ID 


F0 


06 


20 


A8 


FF 


C8 


10 


F5 


5F 


C2A0: 


CA 


DO 


F8 


60 


AE 


9E 


03 


AO 


86 


20 


AE 


FF 


AD 


1A 


CF 


85 


BA 


79 


C2A8: 


00 


BD 


79 


CF 


30 


07 


99 


C7 


48 


20 


BA 


FF 


A9 


6F 


85 


B9 


20 


2E 


C2B0: 


CD 


C8 


E8 


DO 


FA 


99 


C7 


CD 


25 


96 


FF 


A9 


35 


AO 


CE 


20 


IE 


OC 


C2B8: 


E8 


8E 


9E 


03 


60 


AO 


00 


B9 


8C 


AB 


20 


A5 


FF 


C9 


OD 


FO 


06 


30 


C2C0: 


71 


CF 


8C 


9F 


03 


A8 


38 


20 


Dl 


20 


D2 


FF 


4C 


Fl 


CO 


20 


D2 


DD 


C2C8: 


FO 


FF 


AO 


01 


18 


20 
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C878: 


CB 


A9 


82 


AE 


9B 


03 


FO 


12 


CO 


CA48: 


97 


03 


AO 


00 


AE 


AO 


03 


9D 


73 


0880: 


AO 


60 


20 


BA 


FF 


A9 


00 


20 


26 


CA50: 


00 


B2 


E8 


DO 


03 


4C 


8A 


CA 


61 


0888: 


BD 


FF 


20 


CO 


FF 


A2 


82 


20 


6C 


CA58: 


8E 


AO 


03 


AE 


97 


03 


E8 


FO 


AD 


0890: 


09 


FF 


60 


A2 


00 


AO 


00 


A 9 


A7 


CA60: 


22 


DO 


14 


C9 


07 


90 


03 


4C 


18 


0898: 


30 


99 


A7 


02 


C8 


A9 


3A 


99 


52 


CA68: 


5B 


CB 


C9 


01 


BO 


03 


4C 


5B 


B5 


C8A0: 


A7 


02 


08 


BD 


03 


02 


09 


27 


06 


CA70: 


CB 


18 


69 


09 


40 


27 


CA 


E8 


ED 


C8A8: 


FO 


06 


E8 


10 


F6 


4C 


6F 


08 


14 


CA78: 


FO 


03 


4C 


OB 


CA 


EE 


OD 


CA 


55 


08 BO: 


E8 


BD 


03 


02 


C9 


27 


FO 


OB 


49 


CA80: 


40 


OB 


CA 


EE 


OD 


CA 


E8 


40 


9E 


C8B8: 


99 


A7 


02 


C8 


CO 


27 


90 


FO 


2E 


CA88: 


OB 


CA 


A2 


00 


BD 


00 


BO 


DD 


4D 
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4C 


6F 


C8 


20 


BC 


C6 


E8 


BD 


8F 
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00 
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DO 


OE 


E8 


DO 


F5 


A9 


7B 
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03 


02 


C9 


24 


FO 


06 


E8 


10 


AB 


CA98: 


93 


20 


D2 


FF 


20 


80 


04 


40 


DO 
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F6 


4C 


6F 


08 


AO 


00 


E8 


BD 


93 
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DB 


CO 


20 


80 


04 


A9 


8B 


AO 


78 


C8D8: 


03 


02 


FO 


06 


99 


75 


03 


C8 


AF 


CAA8: 


CE 


20 


IE 


AB 


20 


85 


C4 


78 


44 


C8E0: 


DO 


F4 


A9 


00 


99 


75 


03 


8E 


FO 


CABO: 


20 


E7 


FF 


A9 


OF 


AE 


14 


CF 


04 


C8E8: 


96 


03 


20 


2C 


CD 


AD 


14 


CF 


2E 


CAB8: 


AO 


OF 


20 


BA 


FF 


A9 


00 


20 


OD 


C8F0: 


85 


BA 


A9 


00 


85 


B9 


A5 


B7 


77 


CACO: 


BD 


FF 


20 


CO 


FF 


AD 


14 


CF 


FO 


C8F8: 


A2 


A7 


AO 


02 


20 


BD 


FF 


A9 


6D 


CAC8: 


20 


Bl 


FF 


A5 


B9 


09 


60 


20 


83 


09 00: 


01 


AE 


AA 


03 


AC 


AB 


03 


20 


D8 


CADO: 


93 


FF 


A9 


02 


AE 


14 


CF 


AO 


43 


0908: 


D5 


FF 


A5 


90 


29 


10 


FO 


07 


45 


CAD8: 


02 


20 


BA 


FF 


A9 


01 


A2 


BF 


C2 


C910: 


A9 


69 


AO 


A3 


20 


IE 


AB 


4C 


9D 


CAEO: 


AO 


CD 


20 


BD 


FF 


20 


CO 


FF 


OE 


0918; 


DB 


CO 


A2 


00 


AO 


00 


A9 


30 


Dl 


CAE8: 


A2 


OF 


20 


09 


FF 


A2 


00 


BD 


E4 


09 20: 


99 


A7 


02 


C8 


A9 


3A 


99 


A7 


51 


CAFO: 


DC 


CD 


30 


06 


20 


CA 


Fl 


E8 


97 


0928: 


02 


C8 


BD 


03 


02 


C9 


27 


FO 


97 


CAF8: 


DO 


F5 


20 


CC 


FF 


A2 


OF 


20 


7E 


C930: 


06 


E8 


10 


F6 


40 


6F 


08 


E8 


93 


CBOO: 


C9 


FF 


A2 


00 


BD 


E9 


CD 


30 


12 


0938: 


BD 


03 


02 


C9 


27 


FO 


06 


99 


70 


CB08: 


06 


20 


CA 


Fl 


E8 


DO 


F5 


20 


BA 


C940: 


A7 


02 


08 


10 


F2 


84 


B7 


AO 


92 


CB10: 


00 


FF 


A2 


OF 


20 


C9 


FF 


A2 


IB 


0948: 


00 


E8 


BD 


03 


02 


C9 


24 


FO 


D2 


CB18: 


00 


BD 


CE 


CD 


30 


06 


20 


CA 


93 


C950: 


06 


E8 


10 


F6 


4C 


A4 


CO 


E8 


EO 


CB20: 


Fl 


E8 


DO 


F5 


A2 


02 


20 


09 


50 


0958: 


BD 


03 


02 


C9 


20 


FO 


OE 


C9 


CD 


CB28: 


FF 


A2 


00 


BD 


00 


B2 


20 


CA 


26 


0960: 


20 


FO 


OA 


C9 


24 


FO 


06 


99 


06 


CB30: 


Fl 


E8 


DO 


F7 


20 


CC 


FF 


A9 


6A 


C968: 


75 


03 


08 


10 


EA 


A9 


00 


99 


E7 


CB38: 


02 


20 


03 


FF 


A2 


OF 


20 


C9 


B9 


C970: 


75 


03 


8E 


96 


03 


20 


20 


CD 


2B 


CB40: 


FF 


A2 


00 


BD 


BD 


CD 


20 


CA 


17 


0978: 


AD 


AA 


03 


8D 


9D 


03 


AD 


AB 


5B 


CB48: 


Fl 


E8 


EO 


03 


DO 


F5 


20 


CC 


BA 


0980: 


03 


8D 


90 


03 


AE 


96 


03 


AO 


99 


CB50: 


FF 


20 


DC 


CB 


20 


80 


C4 


58 


D6 


C988: 


00 


BD 


03 


02 


C9 


24 


FO 


06 


30 


CB58: 


4C 


DB 


CO 


20 


80 


C4 


A 9 


80 


DO 


0990: 


E8 


10 


F6 


4C 


A4 


CO 


E8 


BD 


D8 


CB60: 


AO 


CE 


20 


IE 


AB 


40 


DB 


CO 


A2 


0998: 


03 


02 


FO 


06 


99 


75 


03 


C8 


6F 


CB68: 


A2 


00 


8A 


9D 


00 


02 


9D 


A7 


7A 


C9A0: 


10 


F4 


A9 


00 


99 


75 


03 


20 


81 


CB70: 


02 


E8 


EO 


28 


90 


F5 


A2 


00 


8D 


C9A8: 


20 


CD 


AD 


9D 


03 


AE 


90 


03 


3F 


CB78: 


9D 


75 


03 


E8 


10 


FA 


40 


86 


55 


09 BO: 


85 


FB 


86 


FC 


AD 


14 


CF 


85 


00 


CB80: 


E3 


78 


20 


E7 


FF 


A9 


OF 


AE 


40 


C9B8: 


BA 


A9 


00 


85 


B9 


A5 


B7 


A2 


5C 


CB88: 


14 


CF 


AO 


OF 


20 


BA 


FF 


A9 


AO 


C9C0: 


A7 


AO 


02 


20 


BD 


FF 


AE 


AA 


42 


CB90: 


00 


20 


BD 


FF 


20 


CO 


FF 


A9 


F8 


C9C8: 


03 


AC 


AB 


03 


A9 


FB 


20 


D8 


C5 


CB98: 


02 


AE 


14 


CF 


AO 


02 


20 


BA 


AA 




































A HOY! 
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CBAO: 


FF 


A9 


01 


A2 


BF 


AO 


CD 


20 


3C 


CBA8: 


BD 


FF 


20 


CO 


FF 


A2 


OF 


20 


19 


CBBO: 


C9 


FF 


A2 


00 


BD 


CO 


CD 


30 


99 


CBB8: 


06 


20 


CA 


Fl 


E8 


DO 


F5 


20 


6B 


CBCO: 


CC 


FF 


A2 


02 


20 


C6 


FF 


A2 


BB 


CBC8: 


00 


20 


A5 


FF 


9D 


00 


BO 


E8 


C5 


CBDO: 


EO 


00 


DO 


F5 


A9 


02 


20 


C3 


08 


CBD8: 


FF 


20 


CC 


FF 


A2 


OF 


20 


C9 


61 


CBEO: 


FF 


A2 


00 


BD 


BB 


CD 


20 


CA 


B5 


CBE8: 


Fl 


E8 


EO 


03 


DO 


F5 


20 


CC 


5B 


CBFO: 


FF 


A2 


OF 


20 


C9 


FF 


A2 


00 


2F 


CBF8: 


BD 


B9 


CD 


20 


CA 


Fl 


E8 


EO 


E4 


CCOO: 


03 


DO 


F5 


20 


CC 


FF 


20 


E7 


BE 


CC08 : 


FF 


58 


60 


A2 


00 


BD 


01 


02 


24 


CCIO: 


FO 


06 


9D 


75 


03 


E8 


10 


F5 


OC 


CC18: 


20 


2C 


CD 


A9 


3D 


20 


D2 


FF 


OC 


CC20: 


AD 


AB 


03 


AE 


AA 


03 


20 


BO 


A9 


CC28: 


CC 


AC 


68 


CB 


A2 


07 


A9 


00 


C8 


CC30; 


9D 


75 


03 


9D 


7F 


03 


9D 


8A 


8E 


CC38: 


03 


CA 


10 


F4 


A9 


3D 


20 


D2 


E4 


CC40: 


FF 


A9 


24 


20 


D2 


FF 


A2 


00 


A3 


CC48: 


BD 


01 


02 


FO 


57 


E8 


8E 


97 


60 


CC50: 


03 


20 


59 


CC 


AE 


97 


03 


DO 


B3 


CC58: 


EF 


C9 


30 


90 


3C 


C9 


3A 


BO 


C3 


CC60: 


38 


29 


OF 


A8 


20 


9A 


CC 


BO 


Bl 


CC68: 


30 


20 


9A 


CC 


BO 


2B 


A2 


07 


A5 


CC70: 


18 


BD 


7F 


03 


7D 


8A 


03 


9D 


71 


CC78: 


7F 


03 


CA 


10 


F4 


BO 


1A 


20 


B5 


CC80: 


9A 


CC 


BO 


15 


A2 


07 


98 


18 


08 


CC88: 


7D 


7F 


03 


9D 


-7F 


03 


9D 


8A 


DO 


CC90: 


03 


A9 


00 


CA 


10 


F2 


BO 


01 


BC 


CC98: 


18 


60 


A2 


07 


18 


3E 


7F 


03 


93 


CCAO: 


CA 


10 


FA 


60 


AE 


86 


03 


AD 


BC 


CCA8: 


85 


03 


20 


12 


CD 


4C 


68 


CB 


Bl 


CCBO: 


8D 


A7 


03 


8E 


A6 


03 


A2 


09 


CC 


CCB8 : 


8E 


A8 


03 


AO 


BO 


AD 


A6 


03 


9B 


CCCO: 


DD 


5F 


CD 


AD 


A7 


03 


FD 


60 


82 


CCC8: 


CD 


90 


OF 


8D 


A7 


03 


AD 


A6 


C2 


CCDO: 


03 


FD 


5F 


CD 


8D 


A6 


03 


C8 


FE 


CCD8: 


DO 


E3 


98 


CA 


FO 


11 


C9 


BO 


6D 


CCEO: 


FO 


03 


8D 


A8 


03 


2C 


A8 


03 


E5 


CCE8: 


30 


05 


AD 


A9 


03 


FO 


IF 


29 


Bl 


CCFO: 


7F 


8E 


99 


03 


AE 


15 


CF 


DO 


FF 


CCF8: 


OF 


AE 


98 


03 


9D 


75 


03 


E8 


51 


CD 00: 


8E 


98 


03 


AE 


99 


03 


10 


06 


8B 


CD08: 


AE 


99 


03 


20 


D2 


FF 


CA 


10 


21 


CDIO: 


AA 


60 


20 


16 


CD 


8A 


48 


4A 


3C 


CD18: 


4A 


4A 


4A 


20 


21 


CD 


68 


29 


97 


CD20: 


OF 


09 


30 


C9 


3A 


90 


02 


69 


68 


CD28: 


06 


4C 


D2 


FF 


A9 


00 


8D 


AB 


30 


CD30: 


03 


AA 


FO 


03 


OD 


AA 


03 


8D 


1A 


CD38: 


AA 


03 


BD 


75 


03 


FO 


20 


C9 


F6 


CD40: 


30 


90 


1C 


49 


30 


C9 


OA 


90 


FA 


CD48: 


08 


69 


88 


C9 


FA 


90 


10 


49 


FO 


CD50: 


FO 


E8 


AO 


04 


OE 


AA 


03 


2E 


B8 


CD58: 


AB 


03 


88 


DO 


F7 


FO 


D5 


60 


7F 


CD60: 


01 


00 


OA 


00 


64 


00 


E8 


03 


BB 


CD68: 


10 


27 


OA 


CC 


2B 


CC 


89 


C4 


BC 


102 AHOY! 



















CD70: 


89 


C4 


89 


C4 


8B 


CO 


EB 


C4 


OA 


CD78: 


03 


C5 


CB 


C6 


F7 


CF 


FA 


CF 


66 


CD80: 


92 


C8 


19 


C9 


F4 


CF 


31 


CI 


76 


CD88: 


C9 


C4 


18 


CI 


18 


CI 


BE 


CO 


4A 


CD90: 


BE 


CO 


BE 


CO 


BE 


CO 


BE 


CO 


8E 


CD98: 


BE 


CO 


BE 


CO 


BE 


CO 


24 


23 


5E 


CDAO: 


5E 


2F 


25 


40 


5F 


2A 


44 


32 


93 


CDA8: 


33 


56 


5F 


31 


24 


51 


38 


39 


A9 


CDBO: 


4E 


43 


52 


53 


49 


56 


4D 


55 


2A 


CDB8: 


00 


49 


30 


55 


3B 


56 


30 


23 


6C 


CDCO: 


55 


31 


3A 


32 


20 


30 


20 


31 


55 


CDC8: 


38 


20 


31 


OD 


FF 


FF 


55 


32 


E6 


CDDO: 


3A 


32 


20 


30 


20 


31 


31 


20 


30 


CDD8: 


31 


31 


OD 


FF 


42 


2D 


46 


3A 


38 


CDEO: 


30 


20 


31 


20 


31 


OD 


FF 


FF 


CO 


CDE8: 


FF 


42 


2D 


50 


3A 


32 


20 


30 


65 


CDFO: 


OD 


FF 


OD 


4C 


4F 


47 


47 


45 


7A 


CDF8: 


44 


20 


54 


4F 


20 


23 


00 


OD 


51 


CEOO: 


20 


20 


20 


20 


20 


20 


20 


20 


01 


CEOS: 


2D 


2A 


2D 


20 


44 


4F 


53 


20 


B3 


CE10: 


50 


4C 


55 


53 


20 


56 


31 


2E 


2B 


CE18: 


30 


20 


2D 


2A 


2D 


OD 


00 


20 


LA 


CE20: 


20 


5E 


20 


42 


41 


44 


20 


43 


E9 


CE28: 


4D 


44 


20 


4F 


52 


20 


4E 


4F 


39 


CE30: 


20 


28 


3A 


29 


00 


OD 


53 


54 


90 


CE38: 


41 


54 


55 


53 


3A 


00 


20 


20 


FO 


CE40: 


20 


5E 


20 


42 


41 


44 


20 


23 


E9 


CE48: 


20 


4F 


52 


20 


4E 


4F 


20 


28 


10 


CE50: 


2C 


20 


24 


20 


27 


29 


00 


OD 


3E 


CE58: 


OD 


44 


55 


4D 


50 


49 


4E 


47 


7B 


CE60: 


3A 


20 


00 


20 


4E 


45 


58 


54 


IB 


CE68: 


20 


54 


26 


53 


3A 


20 


00 


OD 


BD 


CE70: 


52 


45 


54 


55 


52 


4E 


20 


54 


C6 


CE78: 


4F 


20 


45 


58 


49 


54 


13 


00 


36 


CE80: 


93 


4E 


4F 


4E 


2D 


48 


45 


58 


13 


CE88: 


20 


23 


00 


93 


52 


45 


57 


52 


AO 


CE90: 


49 


54 


49 


4E 


47 


OD 


00 


24 


3E 


CE98: 


30 


3A 


3C 


3E 


OD 


46 


49 


4C 


66 


CEAO: 


45 


20 


54 


4F 


4F 


20 


42 


49 


A4 


CEA8: 


47 


OD 


00 


OD 


49 


4E 


53 


45 


3A 


CEBO: 


52 


54 


20 


12 


44 


45 


53 


54 


BA 


CEB8: 


49 


4E 


41 


54 


49 


4F 


4E 


92 


5F 


CECO: 


20 


44 


49 


53 


4B 


20 


2D 


50 


AA 


CEC8: 


52 


45 


53 


53 


20 


12 


52 


45 


DO 


CEDO: 


54 


55 


52 


4E 


92 


OD 


00 


OD 


C7 


CED8: 


92 


54 


4F 


20 


3F 


20 


38 


2F 


F5 


CEEO: 


39 


20 


00 


93 


43 


4F 


50 


59 


OA 


CEE8: 


49 


4E 


47 


3A 


20 


12 


00 


20 


54 


CEFO: 


42 


59 


54 


45 


53 


20 


43 


4F 


2C 


CEF8: 


50 


49 


45 


44 


OD 


00 


4C 


3A 


AF 


CFOO : 


CO 


OD 


1A 


27 


34 


41 


4E 


5B 


2E 


CF08: 


68 


75 


82 


8F 


9C 


A9 


B6 


C3 


B8 


CF10: 


DO 


DD 


EA 


F7 


08 


01 


52 


45 


42 


CF18: 


4C 


20 


00 


44 


45 


4C 


20 


00 


7A 


CF20: 


50 


52 


47 


20 


00 


55 


53 


52 


25 


CF28: 


20 


00 


53 


45 


51 


20 


00 


93 


E5 


CF30: 


12 


44 


49 


53 


4B 


3A 


20 


00 


C8 


CF38: 


2C 


20 


20 


20 


44 


4F 


53 


20 


CB 



UlilDflDT A MTI Letters on white background are Bug Repellent 
IIVIrUrllHlM I ! and provide other essential information on enterin 

CF40: 56 45 52 20 20 20 0D 12 AD 

CF48: 46 49 4C 45 4E 41 4D 45 8B 

CF50: 20 20 20 20 20 20 20 20 51 

CF58: 20 20 20 20 54 59 50 20 F6 

CF60: 42 4C 4B 20 4C 4F 41 44 7B 

CF68: 20 41 44 44 52 53 92 0D 97 

CF70: 00 02 22 42 62 82 A2 C2 21 

CF78: E2 31 38 20 31 0D FF 31 54 

CF80: 38 20 34 OD FF 31 38 20 A3 

CF88: 37 OD FF 31 38 20 31 30 B7 

CF90: OD FF 31 38 20 31 33 OD 98 

CF98: FF 31 38 20 31 36 OD FF 96 

CFAO: 31 38 20 32 OD FF 31 38 D2 

CFA8: 20 35 OD FF 31 38 20 38 CC 

CFBO: OD FF 31 38 20 31 31 OD B6 

CFB8: FF 31 38 20 31 34 OD FF B4 

CFCO: 31 38 20 31 37 OD FF 31 FO 

CFC8: 38 20 33 OD FF 31 38 20 EA 

CFDO: 36 OD FF 31 38 20 39 OD E3 

CFD8: FF 31 38 20 31 32 OD FF D2 

CFEO: 31 38 20 31 35 OD FF 31 OF 

CFE8: 38 20 31 38 OD FF 01 00 B8 

CFFO: 00 00 00 00 00 4C 68 CB 71 

CFF8: 4C 68 CB 4C 68 CB 00 F9 

TWO-COLUMN DIRECTORY 

FROM PAGE 30 MAIN PROGRAM 
5 REM **************** GD 

10 REM DEFINE VARIABLES AC 

15 REM **************** GD 

20 POKE 53280,6: POKE 53281,0: POKE 646, 
1: REM SET SCREEN, TEXT COLORS BJ 
25 C0L=1: DIM FI$(40) AF 

30 WH$=CHR$(5): GR$=CHR$<30) : YE$=CHR$(1 
58): OG$=CHR$(129): PU$=CHR$(156) LE 
35 CL$=CHR$(147); H0$=CHR$(19) : RV$=CHR$ 
(145)+CHR$(18): UP$=CHR$(145) HN 

40 SP$=" ": FOR BL=0 TO 18: SP$=SP$+" " 
: NEXT KB 

45 OPEN 6,8,0,"$": REM OPEN DIRECTORY MD 
50 REM ************************** OG 
55 REM FIND AND PRINT DISK HEADER ND 
60 REM ************************** OG 
65 PRINT CL$: REM CLEAR SCREEN BE 
70 GOSUB 535: PRINT H0$; PD 

75 GET#6, BY$: IF BY$ <> CHR$(34) THEN 7 
5 IN 

80 PRINT SPC(8) "[RVSON]";OG$;BY$; CE 
85 GET#6, BY$: IF BY$ <> "" THEN PRINT B 
Y$ ; : GOTO 85 GN 

90 PRINT WH$ FP 

95 REM ************************ JL 

100 REM FIND AND PRINT FILENAMES MM 
105 REM ************************ JL 
110 FOR ENTRY=0 TO 19: 1=1+1: F$="": SK= 



line codes. Do not enter theml Pages 85 and 86 explain ihese codes 
g Ahoy! programs. Refer to these pages before entering any programs! 

NB 

•115 GET#6, BY$,BY$:GET#6, HB$,LB$ BL 
•120 GET#6, BY$: IF BY$ <> CHR$(32) THEN 

230 FL 

•125 GET#6, BY$: IF BY$ <> CHR$(34) THEN 

125 IM 

•130 IF C0L/2=INT(C0L/2) THEN PRINT TAB(1 

9)" "; MJ 

•135 FOR BL=1 TO 16: GET#6, BY$ CF 
•140 IF BY$="" THEN 160 KH 

•145 IF BY$=CHR$(34) THEN SK=1 : GOTO 160 AA 
•150 IF SK=0 THEN F$=F$+BY$ KM 

•155 GOTO 165 CK 

•160 BY$=CHR$(32) AA 

•165 PRINT BY$;: NEXT: FI$(I)=F$ AG 
•170 GET#6, BY$ PM 

•175 GET#6, BY$: IF BY$=CHR$(32) THEN 175 MC 
•180 PRINT ","; BY$; " " JM 

•185 GET#6, BY$: IF BY$ <> "" THEN 185 CF 
•190 NEXT: C0L=C0L + 1 BC 

•200 IFCOL > 2 AND COL/ 2 <> INT (COL/ 2) TH 

EN 1=0: GOSUB 560 CM 

•205 IF C0L=2 THEN PRINT H0$: GOTO 110 IA 
■210 POKE 214,22: P0KE211 ,0:PRINT RV$;YE$ 

;" ":G0SUB430: GOSUB 265: PRINT H0$;WH$ OD 
•215 IF COL/ 2 <> INTCC0L/2) THEN FOR BL=0 

TO 19: PRINT SP$: NEXT: GOTO 225 EL 
•220 FOR BL=0 TO 19: PRINT TAB(19);SP$: N 

EXT: GOSUB 580 AG 

•225 PRINT SP$;SP$;HO$: GOTO 110 LL 
•230 REM ***************** JN 

•235 REM PRINT BLOCKS FREE PD 

•240 REM ***************** JN 

•245 BL = ASC(HB$+CHR$(0)): BL$=STR$(BL+2 

56 * ASC(LB$+CHR$(0))) EL 

•250 POKE 214,22: POKE 211,0: PRINT RV$;Y 

E$ ; " " FH 

•255 POKE 214,23:POKE 211,10:PRINT RV$;PU 

$;BL$;" BLOCKS FREE ";: CLOSE 6: BC=1 NE 
•260 GOSUB 430: GOSUB 265: PRINT WH$ + CL$ 

: END CC 

•265 REM *********************** HE 
•270 REM DETERMINE USER'S CHOICE MG 
•275 REM *********************** HE 
•280 C=0: R=21: SC=1024: X=1864: D=54272: 

0K=0 KL 

•285 GET BY$:IF BY$="" THEN 285 FB 
•290 IF BY$=CHR$(133) THEN GS=1: GOSUB 34 

0: GS=0: RETURN: REM DISPLAY MORE DIR. DI 
•295 IF BY$=CHR$(134) THEN RUN: REM REPEA 

T DIR. MO 

•300 IF BY$=CHR$(135) THEN 385: REM LOAD 

A PROGRAM HM 

•305 IF BY$=CHR$(136) THEN GOSUB 465: RET 

URN: REM ERASE A PROGRAM ED 

•310 IF BY$=CHR$(17) THEN R=R+1: 0K=1: IF 

AHOY! 103 



R>21 THEN R=21: REM CURSOR DOWN LC 
315 IF BY$=CHR$(145) THEN R=R-1 : OK-1: I 

F R<1 THEN R=l: REM CURSOR UP AF 

320 IF BY$=CHR$(29) THEN C=20: 0K=1: REM 

CURSOR RIGHT PL 

325 IF BY$=CHR$(157) THEN C=0: 0K=1: REM 

CURSOR LEFT PD 

330 IF 0K=0 THEN 265 FN 

335 GOSUB 340: GOTO 285 HE 

340 REM *********** GE 

345 REM MOVE CURSOR KB 

350 REM *********** QE 

355 FOR Y=X TO X+l ME 

360 IF PEEK(Y) > 128 THEN POKE Y,(PEEK(Y 
)-128): POKE Y+D,l HE 

365 NEXT: IF GS THEN RETURN CN 

370 POKE 211, C: POKE 214, R: PRINT UP$; : 
X=SC+(40*R)+C LB 

375 FOR Y=X TO X+l: IF PEEK(Y) < 128 THE 
N POKE Y,(PEEK(Y)+128): POKE Y+D.7 IB 
380 NEXT: RETURN EJ 

385 REM ************** OK 

390 REM LOAD A PROGRAM DI 

395 REM ************** QK 

400 CLOSE 6: Z=R:IF R>20 THEN RETURN OP 
405 IF C=20 THEN Z=Z+20 AG 

°410 IF FI$(Z)="" THEN RETURN BD 

°415 PRINT "[ CLEAR ][RVS0FF] LOAD"; CHR$(34 

); FI$(Z); CHR$(34);\8" ' FE 

•420 PRINT "[4"tD0WN] M ]RUN[4 M [UP]"]" EK 
•425 POKE 631,19: POKE 632,13: POKE 633,1 
3: POKE 198,3: END LN 

•430 REM *#** DP 

•435 REM BEEP LB 

•440 REM **** DP 

•445 POKE 54296,15: POKE 54277,7: POKE 54 
278,133 AK 

•450 POKE 54273,28: POKE 54272,49: POKE 5 
4276,17 BJ 

•455 FOR K=l TO 150: NEXT: POKE 54276,18 OG 
•460 POKE 54296,0; RETURN LH 

•465 REM *************** C£ 

■470 REM ERASE A PROGRAM FM 

•475 REM *************** CE 

•480 POKE 214,25: POKE 21 1,0: PRINT RV$;"[ 
4" "]ERASE — ARE YOU SURE (Y/N)?[7" "]" 
; EL 

•485 GET J$: IF J$="" THEN 485 GI 

•490 IF J$ <> "Y" THEN 500 EP 

•495 G0T0510 CG 

•500 GOSUB 535: GS=1: GOSUB 340: GS=0: IF 
BC THEN 250 DK 

•505 GOTO 210 BP 

•510 Z=R: IF C=20 THEN Z=Z+20 HK 

•515 IF FI$(Z)= ,m OR R>20 THEN G0SUB535:G 
OTO 265 HH 

•520 KL$="SO:"+FI$(Z) LB 

•525 OPEN 15,8,15: PRINT#15, KL$: CL0SE15 
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: RUN pc 

•535 REM ****************** LO 

•540 REM PRINT COMMAND LINE GD 

•545 REM ****************** lo 

•550 POKE 214,25: POKE 211,0 JI 
•555 PRINT RV$+GR$+" F1=M0RE F3=REPEAT 

F5=L0AD F7=ERASE "; : RETURN KJ 

•560 REM ********************** pc 

•565 REM SET FILENAMES TO NULLS BF 

•570 REM ********************** pc 
•575 FOR K=l TO 20: FI$(K)="": NEXT: RETU 

RN MI 
•580 FOR K=21 TO 40: FI$(K)="": NEXT: RET 

URN EM 

SUBROUTINE (See article) 
•5 REM **************** Qjj 

•10 REM DEFINE VARIABLES AC 

•15 REM **************** qj) 

•20 POKE 53280,6: POKE 53281,0: POKE 646, 

1: REM SET SCREEN, TEXT COLORS BJ 

•25 C0L=1 nd 

•30 VH$=CHR${5); GR$=CHR$(30) : YE$=CHR$(1 

58): 0G$= i CHR$(129): PU$=CHR$(156) LE 

•35 CL$=CHR$(147): H0$=CHR$(19) : RV$=CHR$ 

(145)+CHR$(18): UP$=CHR$(145) HN 

•40 SP$=" ": FOR BL=0 TO 18: SP$=SP$+" " 

: NEXT KB 

•45 OPEN 6,8,0,"$": REM OPEN DIRECTORY MD 
•50 REM ************************** OG 
•55 REM FIND AND PRINT DISK HEADER ND 
•60 REM ************************** OG 
•65 PRINT CL$: REM CLEAR SCREEN BE 
•75 GET#6, BY$: IF BY$ <> CHR$(34) THEN 7 

5 IN 

•80 PRINT SPC(8) "[RVS0N]";0GS;BY$; CE 
•85 GET#6, BY$: IF BY$ <> "" THEN PRINT B 

Y$;: GOTO 85 GN 

•90 PRINT WH$ FP 

•95 REM ************************ jl 

•100 REM FIND AND PRINT FILENAMES MM 
•105 REM ************************ jl 

•110 FOR ENTRY=0 TO 19: 1=1+1: F$="": SK= 

NB 

•115 GET#6, BY$,BY$:GET#6, HB$,LB$ BL 
•120 GET#6, BY$: IF BY$ <> CHR$(32) THEN 

230 FL 

•125 GET#6, BY$: IF BY$ <> CHR$(34) THEN 

125 IM 

•130 IF C0L/2=INT(C0L/2) THEN PRINT TAB(1 

9)" "; MJ 

•135 FOR BL-1 TO 16: GET#6, BY$ CF 
•140 IF BY$= ,M » OR BY$=CHR$(34) THEN BY$=C 

HR$(32) OA 

•165 PRINT BY$;:NEXT FA 

•170 GET#6, BY$ PM 

•175 GET#6, BY$: IF BY$-CHR$(32) THEN 175 MC 



180 PRINT ","; BY$; " " 



JM 
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THEN 185 



•185 GET#6 t BY$: IF BY$ <> "" THEN 185 CF 
•190 NEXT: C0UC0L +1 BC 

•205 IF C0L=2 THEN PRINT H0$+"[DOWN]": GO 

TO 110 JC 

•210 PRINT" [DOWN] [12" "][RVS0N]PRESS A KE 

Y[RVS0FF] AE 

•211 GETJ$:IFJ$="" THEN 211 LI 

•212 PRINT H0$+"[ DOWN] [DOWN]"; MH 

•215 IF COL/ 2 <> INT(C0L/2) THEN FOR BL=0 

TO 19: PRINT SP$: NEXT: GOTO 225 OM 
•220 FOR BL=0 TO 19: PRINT TAB(19);SP$: N 

EXT PA 

•225 PRINT SP$;SP$;H0$;"[D0WN]": GOTO 110 KC 
•230 REM ***************** CJ 

•235 REM PRINT BLOCKS FREE EA 

•240 REM ***************** CJ 

•245 BL = ASC(HB$+CHR$(0)): BL$=STR$(BL+2 

56 * ASC(LB$+CHR$(0))) OD 

•255 POKE 214,23:P0KE 211,10:PRINT RV$;PU 

$;BL$;" BLOCKS FREE ";: CLOSE 6: BC=1 JO 



D S 

FROM PAGE 25 
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The Bug Repellent line codes listed to the right of the program 

lines of DSKDU are for the C-64 only. If you are typing in the 

program on a VIC 20, you must use the VIC 20 Bug Repellent 

line codes found on pages 106-107. 

1 N$="*DSKDU*":N1$= ,, BY MARK JOHANSEN" AB 

2 DA=8:G0TO8000 PC 
10 REM*HEX IN DG 
12 N=0:IF LEN(H$)=0 THEN RETURN JE 
14 FOR HX=1T0LEN(H$):N1=ASC(MID$(H$,HX,1 
)):N1=N1-48:IF Nl>9 THEN Nl=Nl-7 PN 
16 N=N*16+N1:NEXT FJ 
18 RETURN IM 
1000 REM*READ OB 
1010 PRINT" [CLEAR] [RVSON]";N$:PRINT"[RVS 
0N]";N1$:PRINT AA 
1020 INPUT"TRACK";H$:GOSUB10:T=N ME 
1030 INPuT"SECT0R";H$:G0SUB10:S=N CE 
1110 PRINT* 15,"U1: 2,0, "T ; S : G0SUB9000 : IF 
ER>0 THEN 1000 OF 
1120 PRINT#15,"B-P:2,0" NP 
1130 D%(0)=0:POKE 828,PEEK(71) :POKE 829, 
PEEK(72):SYS880 DG 
1160 GOSUB9000:IF ER>0 THEN 1000 BE 
2000 REM*VIEW/MOD BL 
2010 P=0 DF 
2100 REM FLASH SCREEN LG 
2102 IF P<0 THEN P=192 AN 
2104 IF P>192 THEN P=0 AB 
2110 PRINT" [CLEAR ]TRACK ";HX$(T/16) ;HX$( 

T AND 15) KH 

2120 PRINT"SECTOR ";HX$(S/16) ;HX$(S AND 
15) HN 



•2130 PRINT JJ 

•2140 FOR L=P TO P+63 STEP 4: PR INT HX$(L/ 
16);HX$(LAND15);":"; EC 

■2150 FOR BY=L TO L+3: PRINT HX$(D%(BY)/16 
);HX$(D%(BY)AND15);" ";:NEXT DE 

•2160 FOR BY=L TO L+3:C$=CHR$(D%(BY)) :IF 
C$<" " OR C$>"[BACKARROW]" OR C$=CHR$(34 
) THEN C$="." JA 

•2170 PRINT C$;:NEXT PF 

•2180 PRINT:NEXT FA 

•2200 REM*ALL0W MODS HO 

•2210 L=0:C=0 JA 

•2220 BY=P+L*4+C/2:HX=CAND1:H1$(0)=HX$(D% 
(BY)/16):H1$(1)=HX$(D%(BY)AND15):C1=INT( 
C*1.5) NC 

•2225 POKE 781, L+3: POKE 782, Cl+3: POKE 783 



LL 
JJ 

KO 
CB 
OA 
EK 
NF 



AND I 



,0:SYS65520 

2230 POKE 204,0 

2240 GET I$:IF 1$="" THEN 2240 

2250 POKE 204,1: PRINT H1$(HX); 

2260 IF I$="[F1]" THEN P=P-64:GOT02100 

2270 IF I$-"[F3]" THEN P=P+64:G0T02100 

2280 IF I$-"[F7]" THEN 1000 

2285 IF I$="[F4]" THEN T»D%(0);S-D%(1) 

OTO1110 

2290 IF I$="[D0WN]" THEN 2750 

2300 IF I$="[ RIGHT]" THEN 2700 

2310 IF I$="[UP]" THEN 2800 

2320 IF I$="[LEFT] U THEN 2850 

2330 IF I$="[F8]" THEN 3000 

2340 IF I$="[F2]" THEN 4000 

2350 IF I$-"[HOME]" THEN 2210 

2400 IF I$<"0" OR I$>"F" OR I$>"9" 

$<"A" THEN 7000 

2410 PRINT "[LEFT]"I$; 

2430 H1$(HX)=I$:H$=H1$(0)+H1$(1) 

2450 G0SUB10:D%(BY)=N 

2460 POKE 781, L+3: POKE 782,C/2+15:POKE 7 

83,0:SYS65520 BJ 

2470 C$=CHR$(D%(BY)):IF C$<" " OR C$>"[B 

ACKARROW]" OS C$=CHR$(34) THEN C$="." II 

2480 PRINT C$; DM 

2490 REM FALL THRU INTO CURSOR RIGHT LO 

2700 REM CURSOR RIGHT NK 

2710 C=C+1:IF C>7 THEN C=0:G0T02750 HJ 

2720 GOT02220 EP 

2750 REM CURSOR DOWN LM 

2760 L=L+1:IF L>15 THEN L=0 FP 

2770 GOT02220 EP 

2800 REM CURSOR UP CK 

2810 UL-1:IF L<0 THEN L=15 CA 

2820 GOTO2220 EP 

2850 REM CURSOR LEFT LJ 

2860 C=C~1:IF C<0 THEN C=7:G0T02800 KO 

2870 G0TO2220 EP 

3000 REM*WRITE FL 
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KP 
GA 
HL 
BJ 
PG 
OD 
OD 
IF 

OA 
CJ 
AB 
10 



•3010 PRINT"[CLEAR]PREPARING TO WRITE" NG 

•3020 PRINT" TRACK ";HX$(T/16) ;HX$(T AND1 

5);" SECTOR ";HX$(S/16) ;HX$(S AND15) CJ 
•3030 PRINT: PRINT"<RET> TO WRITE": PRINT" A 

NY OTHER KEY TO ABORT" BM 

•3040 GET I$:IF 1$="" THEN 3040 NB 

•3050 IF I$OCHR$(13) THEN 2100 CJ 

•3100 REM DO WRITE LE 

•3110 PRINT #15,"B-P: 2,0" NP 

•3120 PRINT"WRITING [3"."]" LI 
■3130 D%(0)=D%(0):POKE 828, PEEK(71 ): POKE 

829,PEEK(72):SYS910 GE 
•3140 PRINT#15,"U2:2,0,";T;S:GOSUB90O0:IF 

ER THEN 2100 AP 

•3150 GOT02100 EI 

•4000 REM*QUIT AG 

•4010 CL0SE2:CL0SE15 BI 

•4020 PRINT" [CLEAR] DONE [3"."]" FO 

•4030 POKE 204,0; END FO 

•7000 REM*HELP 00 

•7010 PRINT" [CLEAR ]DSKDU HELP": PRINT PN 

•7020 PRINT"F1 PREVIOUS PAGE" BL 

•7030 PRINT"F3 NEXT PAGE" PJ 

•7050 PRINT"F7 READ SECTOR" HC 

•7060 PRINT"F4 READ NEXT SECTOR" NL 

•7065 PRINT" [3" "]IN FILE" PA 

•7070 PRINT"F8 WRITE SECTOR" BA 

•7080 PRINT"CRSR CONTROLS" KF 

•7090 PRINT" [3" "] UP, DOWN, LEFT, RIGHT" IP 

•7100 PRINT"HOME TOP LEFT CORNER" KN 

•7120 PRINT"0-9,A-F" GN 

•7130 PRINT" [3" "] OVERWRITE NIBBLE" IC 

•7140 PRINT"F2 QUIT" MD 

•7200 PRINT: PRINT" (ANY KEY TO CONT)" FC 

•7210 GET I$:IF 1$="" THEN 7210 MO 

•7220 G0T02100 EI 

•8000 REM*INIT AD 

-8020 0PEN15.DA.15 GA 

•8030 0PEN2,DA,2,"iT IM 

•8040 DIM D%(255) ML 
•8050 DIM HX$(15):F0R BY=0T015:READ HX$(B 

Y):NEXT FP 
•8060 DATA O t l,2,3,4,5,6,7,8,9,A,B,C,D,E, 

F BK 

•8070 DIM Hl$(l) KK 

•8100 REM LOAD ML ROUTINES PO 

•8110 READ AD: IF AD<0 THEN 8190 LA 
•8120 READ B:IF B>=0 THEN POKE AD,B:AD=AD 

+1:G0T0 8120 BK 

•8130 GOTO 8110 FJ 

•8190 G0T01000 FC 

•8200 REM READ/WRITE ROUTINES BL 



•8210 DATA 840: REM SETUP 

•8220 DATA 173, 60, 3: REM LDA 828 

•8230 DATA 174, 61, 3: REM LDX 829 

•8240 DATA 133, 251: REM STA !251 

•8250 DATA 134, 252: REM STX !252 

•8260 DATA 169,0: REM LDA #0 

•8270 DATA 14 1,62, 3: REM STA 830 

•8280 DATA 96,-l:REM RTS 

•8300 DATA 860: REM ADVANCE POINTER 

•8310 DATA 24: REM CLC 

•8320 DATA 165, 251: REM LDA !251 

•8330 DATA 105, 2: REM ADC #2 

•8340 DATA 133,251: REM STA ! 251 

•8350 DATA 165, 252: REM LDA !252 

•8360 DATA 105,0: REM ADC #0 

•8370 DATA 133, 252: REM STA !252 

•8380 DATA 96,-l:REM RTS 

•8400 DATA 880: REM READ ROUTINE 

•8410 DATA 162,2:REM LDX #2 



10 
HL 
MJ 
GO 
HA 
IG 
GE 
DD 
NC 
JD 
EE 
HB 
GO 
CK 
GN 
DM 
DD 
EI 
KA 



•8420 DATA 32, 198, 255: REM JSR CHKIN MP 

•8430 DATA 32, 72,3: REM JSR SETUP DB 

•8440 DATA 32, 207, 255: REM JSR CHRIN OH 

•8450 DATA 160,1: REM LDY #1 IH 

•8460 DATA 145,251 :REM STA (251, Y BE 

•8470 DATA 32, 92, 3: REM JSR ADVPTR MM 

•8480 DATA 206,62,3: REM DEC 830 GM 

•8490 DATA 208, 241: REM BNE -15 AG 

•8500 DATA 32, 204, 255: REM JSR CLRCHN DI 

•8510 DATA 96,-l:REM RTS DD 

•8600 DATA 910: REM WRITE ROUTINE HF 

•8610 DATA 162, 2: REM LDX #2 KA 

•8620 DATA 32,201 ,255: REM JSR CHKOUT MB 

•8630 DATA 32,72,3: REM JSR SETUP DB 

•8640 DATA 160,1: REM LDY H IH 

•8650 DATA 177,251:REM LDA (251, Y BG 

•8660 DATA 3 2, 2 10, 25 5: REM JSR CHROUT OK 

•8670 DATA 32, 92, 3: REM JSR ADVPTR MM 

•8680 DATA 206, 62, 3: REM DEC 830 GM 

•8690 DATA 208, 241: REM BNE -15 AG 

•8700 DATA 32, 204, 255: REM JSR CLRCHN DI 

•8710 DATA 96,-1: REM RTS DD 

•8720 DATA -1 OE 

•9000 REM DISK CHECK DG 

•9020 INPUT#15,ER,ER$,ET,ES EC 

•9030 IF ER=0 THEN RETURN EM 
•9050 PRINT "[CLEAR] [RVSON]";ER;ER$:PRINT 

"[RVSON]";ETjES EF 
•9060 PRINT: PRINT"F2 TO QUIT":PRINT"ANY 

THER KEY TO CONT" HM 

•9070 GET I$:IF 1$="" THEN 9070 NM 
•9080 IF I$="[F2]" OR I$="[FI]" THEN 4000 GH 

•9090 RETURN IM 



VIC 20 BUG REPELLENT LINE CODES FOR DSKDU 



# 1 


:AB # 12 


:JE 


# 18 :IM # 1020:ME 


# 1120:NP # 2000: BL # 2102: AN # 2120: UN 


# 2 


:PC # 14 


:PN 


# 1000: OB # 1030:CE 


# 1130:DG # 2010: DF # 2104 :AB # 2130: JJ 


# 10 


:DG i 16 


:FJ 


# 1010: AA # 11 10: OF 


# 1160:BE # 2100:LG | 2110:KH # 2140: EC 
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ain these codes 
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# 2150: DE 

# 2160:JA 

# 2170 :PF 

# 2180: FA 

# 2200: HO 

# 2210 :JA 

# 2220 :NC 

# 2225 :LL 

# 2230-.JJ 
2240 :K0 
2250 :CB 
2260 :0A 
2270: EK 
2280 :NF 
2285:KP 
2290 :GA 
2300 :HL 
2310: BJ 



# 



2320: PG 
2330 tOD 

2340 :0D 
2350: IF 
2400: OA 

2410 :CJ 
2430: AB 
2450:10 
2460 :BJ 
2470:11 
2480: DM 
2490 :L0 
2700 :NK 
2710 :HJ 
2720: EP 
2750: LM 
2760 :FP 
2770 :EP 



:EP 
:LJ 
:K0 
:EP 



2800 :CK 
2810:CA 
2820: 

# 2850: 

# 2860 

# 2870: 

# 3000 :FL 

# 3010 :NG 

# 3020 :CJ 

# 3030 :BM 
3040 :NB 
3050 :CJ 
3100: LE 
3I10:NP 
3120: LI 
3130 :GE 
3140: AP 
3150: EI 



# 
# 

# 
# 
# 

# 
# 
# 



# 4000: AG 

# 4010 :BI 

# 4020: FO 

# 4030; F0 

# 7000:00 

# 7010 :PN 

# 7020 :BL 

# 7030:PJ 

# 7050 :HC 
7060 :NL 
7065: PA 
7070: BA 
7080: KF 
7090: IP 
7100:KN 
7120:GN 
7130:IC 



# 
# 
# 
# 

# 
# 



# 7140 :MD 

# 7200; FC 

# 7210:M0 

# 7220: EI 

# 8000 :BI 

# 8001: AD 

# 8020 :GA 

# 8030 :IM 

# 8040: ML 

# 8050 :FP 

# 8060 :BK 
Hf 8070 :KK 
§ 8100 :P0 

# 8110:LA 

# 8120 :BK 

# 8130: FJ 

# 8190 :FC 



# 8200 :BL 

# 8210:10 
f 8220: HL 

# 8230 :M J 

# 8240: GO 

# 8250: HA 

# 8260 :IG 

# 8270 :GE 
8280 :DD 
8300 :NC 
8310 :JD 
8320 :EE 
8330 :HB 
8340: GO 
8350 :CK 
8360: GN 
8370: DM 



H 



# 
# 
# 

# 
# 



# 8380: DD 

# 8400: EI 

# 8410 :KA 
§ 8420: MP 

# 8430 :DB 

# 8440: OH 

# 8450 :IH 

# 8460: BE 

# 8470: MM 

# 8480 :GM 

# 8490: AG 

# 8500 :DI 

# 8510: DD 

# 8600 :HF 

# 8610 :KA 

# 8620: MB 

# 8630 :DB 



# 8640 :IH 
§ 8650 :BG 

# 8660: OK 

# 8670: MM 

# 8680 ;GM 

# 8690: AG 

# 8700 :DI 

# 8710 :DD 

# 8720 :0E 

# 9000 :DG 

# 9020: EC 

# 9030: EM 

# 9050 :EF 

# 9060 :HM 

# 9070 :NM 

# 9080: GH 

# 9090 :IM 



C 



T1H1E ^^WARlEDINlTEnRiyiPTWEOQE 

FROM PAGE 52 VIC 20 VERSION 

•10 REM*** VIC 20 *** HL 
•12 REM***SAMPLE INTERRUPT ROUTINE*** LD 
•15 REM*** BASIC LOADER *** BJ 
•20 REM***L0ADS INTO CASSETTE BUFF*** IG 
•25 REM*** 'SYS828' TO ACTIVATE *** HK 
•30 REM*** 'SYS854' TO DEACTIVATE *** FH 
•40 F0RX=828T0866 KF 

•50 READA:POKEX,A:NEXT:END OH 

•100 DATA120,169,73,141,20,3,169,3,141,21 
,3,88,96,165,197,141,255,30,169,4 IP 

•200 DATA141, 255, 150, 76, 191, 234, 120, 169,1 
91,141,20,3,169,234,141,21,3,88,96 AO 

C-64 VERSION 
•10 REM*** C64 *** CA 
•12 REM***S AMPLE INTERRUPT ROUTINE*** GI 
■15 REM*** BASIC LOADER *** KM 
•20 REM***L0ADS INTO CASSETTE BUFF*** DM 
•25 REM*** 'SYS828' TO ACTIVATE *** CE 
•30 REM*** 'SYS854* TO DEACTIVATE *** BN 
•40 F0RX=828T0866 KF 

•50 READA:POKEX,A:NEXT:END OH 

•100 DATA1 20, 169, 73, 141, 20, 3, 169, 3, 141, 21 

,3,88,96,165,197,141,255,4,169,4 BE 
■200 DATA141, 255, 216, 76, 49, 234, 120, 169, 49 

,141,20,3,169,234,141,21,3,88,96 AM 



CM 
FG 
AF 



PH 
JG 
KO 
MC 
BC 
JJ 
EA 
EH 
IK 
OL 
BA 
OA 
LE 
JA 
HG 



FROM PAGE 29 

•5 P0KE53280,6:POKE53281,0:P0KE646,l 

•10 PRINTCHR$(147) 

•20 FORX=3584TO3660:READZ:P0KEX,Z:NEXTX 



•30 P0KE51,O:P0KE52,15:POKE251,0:P0KE252, 

15:P0KE828,0 
•40 PRINT" SELECT OPTION" 
•50 PRINT:PRINT"1. COPY SEQ FILE" 
•60 PRINT :PRINT"2. COPY PGM FILE" 
■70 PRINT:PRINT"3. END" 
•80 PRINT 

•90 GETR$ : IFR$=""THEN90 
•100 A=VAL(R$) :IFA<10RA>3THEN90 
•110 0NAG0T0120,140,290 
•120 INPUT"SEQ FILENAME" ;AN$ 
•130 F$= n S":G0T0160 
•140 INPUT"PGM FILENAME"; AN $ 
•150 F$="P" 
•160 OPEN3,8,3,AN$ 
•170 SYS3584:CL0SE3 
•180 IFPEEK(252)= S 159THENPRINT"FILE TOO LO 

NG":ST0P NK 

•190 P0XE253, PEEK ( 828) :POKE254, PEEK (252): 

POKE251,0:POKE252,15:POKE828,0 10 

•200 PRINT"SWAP DISKS IF PUTTING COPY ON 

A NEW DISK": PRINT NB 

■210 INPUT"NAME OF NEW FILE";AN$ LB 

•220 OPEN3 ( 8,3,AN$+","+F$+",W":SYS3618:CL 

0SE3 CN 

•230 PRINT"- COPY COMPLETE -":G0T030 CB 

•240 DATA 162,3,32,198,255,32,228,255,172 

,60,3,145,251,200,140,60,3,192 DA 

•250 DATA 0,208,8,230,252,166,252,224,159 

,240,4,165,144,240,228,32,204,255 LI 

•260 DATA 96,162,3,32,201,255,172,60,3,17 

7,251,196,253,208,6,166,252 MD 

•270 DATA 228,254,240,16,200,140,60,3,32, 

210,255,192,0,208,230,230,252,76 CM 

•280 DATA 42,14,32,204,255,96 HL 

•290 END IC 
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COMMODORE FONT EDITOR 

FROM PAGE 82 

10 REM COMMODORE FONT EDITOR FH 

20 REM PROGRAMMED BY STEPHEN REED EC 

30 REM JD 

40 REM IF YOU DON'T WANT TO TYPE IN JO 

50 REM THIS PROGRAM, COPIES ARE NG 

60 REM AVAILABLE ON DISK WITH SEVERAL KH 

70 REM CHARACTER FONTS. SEND $12.95 TO: FK 

80 REM JD 

90 REM FONT EDITOR LG 

100 REM 2404 S. MYRTLE AVE, LJ 

110 REM SANFORD, FL 32707 IE 

120 REM JD 

130 REM JD 

140 REM *************************** QJ7 

150 REM * INITIALIZE PROGRAM DATA * DE 

160 REM *************************** qj? 

170 REM JD 

180 P0KE53281,1:P0KE53280,7 BP 

190 POKE52,48:POKE56,48:CLR:DIMR$(7) PC 

200 F0RA=0T07:READR(A):NEXTA AA 

210 DATA 128,64,32,16,8,4,2,1 BJ 
220 PRINT" [CLEAR]"CHR$(142)CHR$(8)"[BLUE 

][RVS0N]"; CM 

230 CC=1:0C=1 CI 
240 PRINT" [9" "JC0MM0DORE FONT EDIT0R[9" 

"][SS]"; EC 

250 PRINT" [ BLACK ][RVSON][ 40" [c T]"]" BM 

260 G0SUB510:REM GET E WINDOW AG 

270 GOSUB740;REM MENU ON SCREEN HD 

280 G0SUB920:REM DISPLAY CHARACTERS CC 

290 G0SUB1070:REM UPDATE SCRN FOR CC GK 

300 IFPEEK(12288)=60THEN430 AG 

310 REM JD 

320 REM *************************** cjt 

330 REM * DOWNLOAD ROM CHARACTERS * FA 

340 REM *************************** CE 

350 REM JD 
360 PRINT"[H0ME][16"[D0WN]"]";0$;"[BLUE] 

PLEASE WAIT 30 SECONDS" HM 

370 P0KE56334,PEEK( 56334) AND254 DN 

380 P0KE1,PEEK(1)AND251 IM 

390 FORA=0T02047 CP 

400 POKEA+l 2288, PEEK (A+53248): NEXT JD 

410 P0KE1,PEEK(1)0R4 BE 

420 P0KE56334, PEEK( 56334 )0R1:G0SUB1070 IB 

430 GOSUB740 CL 

440 P0KE53272,(PEEK(53272)AND240)+12 LI 

450 G0SUB1390:IFA$<"0"0RAS>"9 ,, THEN450 DJ 

460 A=VAL(A$):IFA=0THENA=10 IB 
470 0NAG0SUB1700 , 1890 , 2070 , 2430 , 2620 , 275 

0,2920,3010,3170,3240 LN 

480 GOTO 450 CN 

490 REM JD 
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*500 REM ****************************** jjK 
•510 REM * PUT EDIT WINDOW ON SCREEN * DC 
•520 REM ****************************** nk 

•530 REM JD 

•540 PRINr[H0ME][3"[D0WN]"] [BLACK][RVS0 
N]"; BJ 

•550 PRINT" [3" "]12345678[3" "]" CJ 
•560 PRINT" [RVSON] [PURPLE] [s M][10" "][ 
s Nj[BLACK] " GO 

•570 PRINT" [RVSON] [PURPLE] [s M][8" "][ 
s N] [BLACK] " EM 

•580 PRINT" [RVSON] 1 [PURPLE] [RVS0FF][8" 

"][RVSON] [BLACK]1" ID 

•590 PRINT" [RVS0N]2[PURPLE] [RVS0FF][8" 

"] [RVSON] [BLACK] 2" KH 

•600 PRINT" [RVS0N]3[PURPLE] [RVS0FF][8" 

11 ] [RVSON] [BLACK] 3" OH 

•610 PRINT" [ RVSON ]4[ PURPLE] [RVS0FF][8" 

"HRVSON] [BLACK]4" PL 

•620 PRINT" [ RVSON ]5[ PURPLE] [RVS0FF][8" 

"HRVSON] [BLACKJ5" PD 

•630 PRINT" [ RVSON ]6[ PURPLE] [RVS0FF][8" 

"HRVSON] [BLACK]6" NH 

•640 PRINT" [RVS0N]7[ PURPLE] [RVS0FF][8" 

"] [RVSON] [BLACK] 7" OH 

•650 PRINT" [ RVSON ]8[ PURPLE] [RVS0FF][8" 

"] [RVSON] [BLACK] 8" OL 

■660 PRINT" [RVSON] [PURPLE] [s N][8" "][ 
s M] [BLACK] " EM 

•670 PRINT" [RVSON] [PURPLE] [s N][10" "][ 
s M][ BLACK] " HC 

•680 PRINT" [RVSON] [3" "]12345678[3" "][R 
VSOFF]": RETURN OF 

•690 REM JD 

•700 REM *************************** CE 
•710 REM * PUT MAIN MENU ON SCREEM * HG 
•720 REM *************************** CE 
•730 REM JD 

•740 PRINT"[HOME][3"[DOWN]"][22"[RIGHT]"] 

[RED] [RVSON] [3"*"] MENU [3"*"] [BLACK]" DN 
•750 0$="[17"[RIGHT]"]" GJ 

•760 PRINT: PRINT0$;"1] SAVE FONT" MB 
•770 PRINT0$;"2] LOAD FONT" LB 

•780 PRINT0$;"3] EDIT CHARACTER" DB 
■790 PRINT0$;"4] MOVE CHARACTERS" GK 
•800 PRINT0$;"5] SWAP CHARACTERS" LF 
•810 PRINT0$;"6] INVERSE CHARACTERS" JN 
•820 PRINT0$;"7] GET ROM CHARACTERS" EL 
•830 PRINT0$;"8] DISPLAY DATA VALUES" EE 
•840 PRINT0$;"9] DECREMENT DISPLAY" CE 
•850 PRINTO$;"0] INCREMENT DISPLAY" FJ 
•860 PRINT: PRINTOS; "[GREEN] [3" "] SELECT 
PTI0N?[5" "]":RETURN KM 

■870 REM JD 

■880 REM ****************************** N]( 
■890 REM * PUT CHARACTER DATA ON LINE * BC 



*][s A][s B][s C][a 
H][s I][s J][s K][s 
P][s Q][s R][s 



Z][s 



S][s 
+][c 



•900 REM ****************************** 

•910 REM 

•920 PRINT"[H0ME][18"[D0WN]"]"; 

■930 PRINT"[24" "]"; 

•940 PRINT" [ BLACK ]@ABCDEFGHIJKLMN0"; 

•950 PRINT"PQRSTUVWXYZ[ [EP] ][ UP ARROW] [BAG 

KARROW] ! "+CHR$( 34 )+"#$%& ' ( )*+ .-./012345 

67"; 

•960 PRINT"89 :;<*=>? [s 
D][s E][a F][s G][s 
L][s M][s N][s 0][s 
T][s U][s V][s W][s X][s Y][s 
-Us -][PI][c *]" 

970 FORA=94T0255 

980 POKE1024+18*4O+24+A,A 

990 POKE55296+18*40+24+A,0 

1000 NEXT 

1010 PRINTCHR$(146):RETURN 

1020 REM 

1030 REM ****************************** 

1040 REM * PUT CURRENT DATA ON SCREEN * 
1050 REM ****************************** 

1060 REM 

1070 POKE55296+18*40+OC+24,0:0C=CC 

1080 P0KE55296+18*40+CC+24,2 

1090 PRINT" [HOME] [15" [DOWN]"] [5" [RIGHT]" 

] [PURPLE] [RVS0N]C0DE "; RIGHT $(STR$(CC) ,L 

EN(STR$(CC))-1); 

1100 IFCC<10THENPRINT" " 

1110 IFCCOOOTHENPRINT" " 

1120 PRINr[HOME][6"[DOWN]"][RVSOFF]";:F 

0RA=0T07 : P$="" 

1130 B=PEEK(12288+A+(CC*8)) 

IFB=>128THENZP=1 :B=B-128 

GOSUB1320 

IFB=>64THENZP=1 :B=B-64 

G0SUB1320 

IFB=>32THENZP=1 :B=B-32 

GOSUB1320 

IFB»>16THENZP=1:B=B-16 

G0SUB1320 



NK 
JD 
NP 
BJ 
FC 



KM 



1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 



HB 
DD 
NP 
BL 
IA 
CC 
JD 
NK 
EO 
NK 
JD 
HH 
HC 



AD 
OE 
BH 

FL 
CJ 
PC 
FH 
IH 
FH 
DJ 
FH 
DN 
FH 
AE 
FH 
NE 
FH 
PA 
FH 
OK 
FH 



IFB=>8THENZP=1 ; B=B-8 

GOSUB1320 

IFB=>4THENZP=1 : B=B-4 

GOSUB1320 

IFB=>2THENZP=l:B=B-2 

G0SUB1320 

IFB=1THENZP=1 

G0SUB1320 

PRINT" [ BLACK ][ 4" [ RIGHT]" ] M ;P$:NEXTAHL 

RETURN IM 

IFZP-lTHENP$»P$+"[s Q]":ZP=0: RETURN MK 

HC 
JD 
CE 
KP 
CE 
JD 



P$-P$+" ": RETURN 
REM 

REJ4 *************************** 

REM * SCAN KEYBOARD FOR INPUT * 

ggM *************************** 

REM 



•1390 GETA$:IFA$=""THEN1390 KB 

•1400 RETURN IM 

•1410 REM JD 

•1420 REM *************************** CE 

•1430 REM * ERASE MENU AREA * ME 

•1440 REM *************************** CE 

•1450 REM JD 

•1460 PRINT"[H0ME][3"[D0WN]"]"; GL 

•1470 PORA-OTOI'3 MN 

•1480 PRINTO$;"[22" "]" FG 

•1490 NEXTA: RETURN JA 

•1500 REM JD 

•1510 REM *************************** CE 

•1520 REM * FORMATTED NUMERIC INPUT * FJ 

• 1530 REM *************************** CE 
•1540 REM JD 
•1550 PRINT"[3"[c D]"][3 ,, [LEFT]"] n ; :Z-0:B 

$="" FA 

•1560 FOR A=1T03:G0SUB 1600 :IFZ=1THEN 1580 HH 

•1570 NEXT IA 
•1580 W=VAL(B$):IFW>255THENPRINT"[3"[LEFT 

]"] ,, ;:G0TO1550 PF 

•1590 RETURN IM 

•1600 G0SUB1390 FI 

•1610 IFA$=CHR$(13)THENZ=1: RETURN NH 

•1620 IFA$<"0"ORA$>"9"THEN1600 ON 

•1630 B$=B$+A$ IG 

•1640 PRINTA$r: RETURN BH 

•1650 REM JD 

• 1660 REM ************************** OG 

•1670 REM * SAVE FONT DATA TO DISK * FH 

• 1680 REM ************************** OG 
•1690 REM JD 
•1700 G0SUB1430 FP 
•1710 PRINT"[H0ME][4"[D0WN]"] M 0$" [GREEN 

][3"."]SAVE DATA[3V] [BLACK]" NC 
•1720 PRINT:PRINT"[10"[DOWN]"]"0$"FILESPE 

C" ; OM 

•1730 INPUTN$:IFLEN(N$)>8THEN1700 JO 

•1740 OPEN 1,8,12,N$+\P,W" FA 

•1750 PRINT#1,CHR$(0)+CHR$(48); NA 

•1760 F0RI=OTO255 AB 
•1770 PRINT M [H0ME][8"[D0WN]'T0$"[8"[RIGH 

T]"]";I KI 

•1780 B$="" FO 

•1790 FORJ=0TO7 IC 

•1800 B$=B$+CHR$(PEEK(12288+J+I*8)):NEXT MF 

•1810 PRINT#1,B$; KC 

•1820 NEXTI:CL0SE1:G0SUB1430 GG 

•1830 GOSUB740: RETURN PK 

•1840 REM JD 

•1850 REM **************************** GH 

•I860 REM * LOAD FONT DATA FROM DISK * EE 

•1870 REM **************************** GH 

•1880 REM JD 

•1890 G0SUB1430 FP 
•1900 PRINT" [ HOME ][ 4" [ DOWN ] ,1 ] ,, 0$" [GREEN 
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][3","]L0AD DATA [3"."] [BLACK]" 



• 1910 PRINT: PRINT" [ 10" [ DOWN ] " ] "0$"FILESPE 
C"; OM 

•1920 INPUTN$:IFLEN(N$)>8THEN1700 JO 

•1930 OPEN 1,8,12,N$+'\P,R" CN 

•1940 GET#1,A$,A$ AL 

•1950 FORI=OT0255 AB 
•1960 PRINT"[H0ME][8"[D0WN]"]"0$"[8"[RIGH 

T]"]";I KI 

•1970 PORJ-OT07 IC 

•1980 GET#1,A$:A=0:IFA$<>""THENA=ASC(A$) KJ 

•1990 P0KE12288+J+I*8,A:NEXTJ BO 

•2000 NEXTI: CLOSE! :G0SUB1430 GG 

•2010 GOSUB740: RETURN PK 

•2020 REM JD 

•2030 REM ************************** qq 

•2040 REM * EDIT CHARACTER ROUTINE * PL 
•2050 REM ************************** OG 
•2060 REM JD 

•2070 G0SUB1430 FP 

• 2080 PRINT" [ HOME] [ 4" [ DOWN J" ] "0$" [PURPLE ] 

EDIT CHARACTER [BLACK]" OM 

•2090 PRINT : PR INTO$ "CHARACTER # ";:G0SUB1 

550 MM 

•2100 CC=W:G0SUB1070 CM 

•2110 GOSUB1430 : PRINT" [ HOME ][ 4" [ DOWN ]"]"0 

$; "[PURPLE ]EDIT CHARACTER [BLACK]" NN 
•2120 PRINT:PRINT0$"[E][6" "1 ERASE BUFFER 

GO 
•2130 PRINT0$" [*]/[.] SET PIXEL" FN 
•2140 PRINTO$"[ SPACE] RESET PIXEL": PRINT 

0$" [RETURN] FINISHED" KE 

•2150 PRINT: PRINT :PRINTO$" CURSOR KEYS MO 

VE" BK 

•2160 PRINTO$" EDITING CURSOR." NI 
•2170 X=4:Y=4:G=1:G0SUB2350 KC 

• 2180 G0SUB1390: IFA$="E"THENG0SUB2410 : GOT 
02180 GE 

•2190 IFA$=" "THENG=3:G0SUB2350:GOTO2180 OA 
•2200 IFA$="*"ORA$=V'THENG=2:GOSUB2350:G 

CT02180 CE 

•2210 IFA$=CHR$(13)THEN2280 IP 

•2220 IFA$<>"[UP]"ANDA$O"[D0WN]"ANDA$<>" 

[LEFT]"ANDA$O"[RIGHT]"THEN2180 PI 

• 2230 IFA$="[ UP ] "ANDY>1THENG S 0: G0SUB2400 : 
Y=Y-l:GOSUB2350:GOT02180 DM 

• 2240 IFA$=" [ DOWN ] "ANDY<8THENG=0 : G0SUB240 
0:Y=Y+1:GOSUB2350:GOT02180 GF 

• 2250 IFA$=" [ RIGHT ] "ANDX<8THENG=0 : G0SUB24 
00:X=X+1:GOSUB2350:GOT02180 BM 

•2260 IFA$ S "[LEFT]"ANDX>1THENG=0:G0SUB240 
: X=X-1 : G0SUB2350 : G0T02 1 80 OH 

•2270 GOTO 2180 FA 

•2280 F0RA=0T07 IP 

•2290 GOSUB2320:REM GET BYTE IN B OA 
•2300 P0KE12288+(CC*8)+A,B:NEXTA II 
•2310 GOSUB107O:G0SUB1430:G0SUB740: RETURN PO 
•2320 B=0:FORR=OT07 A A 

•2330 U=PEEK(1268+(A*40)+R):IFU=870RU=81T 
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HENB=B+R(R) GG 

2340 NEXTR: RETURN KB 

2350 X$="[8"[RIGHT]"]":Y$="[8"[D0WN]"]": 
PRINT" [ HOME] [5" [DOWN]" ][3"[ RIGHT ]"]";LEF 
T$(X$,X);LEFT$(Y$,Y); LJ 

2360 IFG=2THENPRINT"[BLACK][s Q]":G*=1:G0 
SUB2350:RETURN KC 

2370 IFG=3THENPRINT"[ BLACK] ":G=1:G0SUB2 
350: RETURN BB 

2380 K=PEEK( 1227+X+Y*40) : IFK=81THENPRINT 
"[RED][s W]": RETURN GC 

2390 PRINT" [ RED ]+": RETURN 01 

2400 POKE1227+X+Y*40,K:POKE55499+X+Y*40, 
0: RETURN LG 

2410 PRINT" [ HOME ][ 6" [ DOWN ]"] ,, ;:F0RA=1T08 
:PRINT"[4"[RIGHT]"][8" "]" ' AM 

2420 NEXTA:G=1:K=32:G0SUB2350: RETURN DH 
2430 GOSUB1430 FP 

2440 PRINT" [HOME] [ 4" [ DOWN ] " ] "0$"STARTING 
CHAR "; NA 

2450 G0SUB1550:M1=W BJ 

2460 PRINT: PRINTO$"ENDING CHAR ";:G0SUB1 
550 EH 

2470 M2=W IJ 

2480 PRINT :PRINT0$ "MOVE TO CHAR "; :G0SUB 
1550 MO 

2490 IFM1>M2THEN2430 LM 

2500 IFW<=M2 ANDW=>M1 THEN 2430 BP 
2510 PRINT:PRINTO$;"[BLUE] [3"."]M0VING 
[3","] [BLACK]" FP 

2520 F0RA=0T0(M2-M1) EM 

2530 F0RB=0T07 HK 

2540 POKE12288+B+(A+W)*8,PEEK(12288+B+(A 
+M1)*8) DE 

2550 NEXTB.A DI 

2560 G0SUB1430:G0SUB740: RETURN IK 
2570 REM JD 

2580 REM **************************** GH 

2590 REM * SWAP CHARACTER DATA SUBR * DK 
2600 REM **************************** GH 
2610 REM JD 

2620 G0SUB1430: PRINT" [BLACK] [HOME] [4" [DO 
WN]"]"0$"STARTING CHAR "; :GOSUB1550:SC=W HF 
2630 PRINT :PRINTO$" ENDING CHAR ";:G0SUB1 
550:EC=W AL 

2640 PRINT :PRINTO$"SWAP WITH ";:G0SUB155 
BA 

2650 F0RA=0T0(EC-SC):F0RB=0T07 CL 
2660 T=PEEK(12288+B+(A+W)*8) BM 

2670 P0KE12288+B+(A+W)*8,PEEK(12288+B+(A 
+SC)*8) MA 

2680 P0KE12288+B+(A+SC)*8,T:NEXTB,A JK 
2690 GOSUB1430:GOSUB740:GOSUB1070: RETURN EI 
2700 REM JD 

2710 REM ************************** qq 

2720 REM * REVERSE CHARACTER DATA * KH 
2730 REM ************************** OG 
2740 REM JD 



I fi/1 DO DT A MT I L - et[ers on wni,e background are Bug Repellent line codes, Do not enter theml Pages 85 and 86 explain these codes 
llVIl Un I HIM I ! and provide other essential information on entering Ahoy! programs. Refer lo these pages before entering any programs! 



2750 G0SUB1430 FP 

2760 PRINT" [ HOME ] [ 4" [ DOWN ] "] " j : IFYT=0THE 
NPRINT0$"[BLACK]REVERSE DATA" BA 

2770 PRINT: PRINT0$"STARTING CHAR ";:G0SU 
B1550 AF 

2780 SOW KE 

2790 PRINT: PRINT :PRINT0$" ENDING CHAR ";: 
GOSUB1550 LF 

2800 IFW<SCTHEN2750 LK 

2810 IFYT=1THENRETURN FP 

2820 PRINT: PRINT :PRINT0$" [BLUE][3"."]R 
EVERSING[3"."] [BLACK]" 0M 

2830 FORA=0TO(W-SC):FORB=0TO7 0B 

2840 POKE12288+B+(A+SC)*8 f 255-PEEK( 12288 
+B+(A+SC)*8):NEXTB,A DG 

2850 G0SUB1430:G0SUB740 LH 

2860 G0SUB1070:RETURN CO 

2870 REM JD 

2880 REM ************************** 0G 
2890 REM * GET ROM CHARACTER DATA * FC 
2900 REM ************************** OG 
2910 REM JD 

2920 YT=1:PRINT"[ BLACK ]":G0SUB2750:YT=0 IG 
2930 PRINT :FRINT0$"[ BLUE ][ 3". "jLOADING F 
ROM R0M[3"."][BLACK]" DK 

2940 P0KE56334,PEEK( 56334) AND254 DN 
2950 P0KE1,PEEK(1)AND251 IM 

2960 F0RA=SC*8T0SC*8+(W-SC)*8+7 IL 
2970 P0KEA+1 2288, PEEK (A+53248): NEXT JD 
2980 P0KE1,PEEK(1)0R4 BE 

2990 P0KE56334, PEEK ( 56334 )0R1 PD 

3000 GOSUB1430:GOSUB74O:G0SUB1070: RETURN EI 
3010 GOSUB1430 FP 

3020 PRINT" [ HOME ] [ 4" [ DOWN ] " ] "0$ ; " [ BLACK ] 
CHARACTER NUMBER "; IL 

3030 GOSUB1550 GG 

3040 PRINT: PRINT :TP=CC:CC=W:G0SUB1070 JP 
3050 PRINT" [ HOME ] [ 5" [ DOWN ] " ] " : F0RA=0T07 PL 
3060 PRINT0$;PEEK(12288+A+(W*8)) CP 
3070 NEXTA MF 

3080 PRINT:PRINT0$;"[4" "] SPACE TO RETUR 
N" HK 

3090 G0SUB1390:CC=TP:G0SUB1070 EL 
3100 G0SUB1430:GOSUB740 LH 

3110 GOSUB1070: RETURN CO 

3120 REM JD 

3130 REM *************************** CE 
3140 REM * DECREMENT CHARACTER — > * JG 
3150 REM *************************** CE 
3160 REM JD 

3170 CC=CC-1:IFCC<0THENCC=255 NC 

3180 G0SUB1070: RETURN CO 

3190 REM JD 

3200 REM *************************** CE 
3210 REM * INCREMENT CHARACTER — > * IK 
3220 REM *************************** CE 



•3230 REM JD 

•3240 CC=CC+1:IFCC>255THENCC=1 BG 

•3250 GOTO 3180 FB 

TILE TIME 

FROM PAGE 81 

1 rem THE TILE GAME MK 

2 REM (C) MURDOCK & BLACKBURN '84 FG 

3 REM 10/15/1984 HL 

4 REM JD 
100 F0RX=1T06:READCH:C0$(X)=CHR$(CH):NEX 

T MG 

110 DATA 28,158,156,30,150,5 JE 

120 B1$=CHR$(154):B2$=CHR$(31):B3$=CHR$( 
152):C1$=B1$:C2$=CHR$(144) LB 

130 SC$=CHR$(147):HM$=CHR$(19) KI 

135 PRINT SC$;C0$(6) OE 

140 POKE53280 , 2 : P0KE53281 , 2 : PRINTSPCf 249 
)"HOLD ON, JUST A SECOND" KE 

150 D0$=HM$ :F0RX=1T024 :DO$=DO$+CHR$( 17) : 
NEXT GH 

160 U3$="":F0RX=1T03:U3$=U3$+CHR$(145) :N 
EXT HD 

170 R3$="":F0RX=1T03:R3$=R3$+CHR$(29):NE 
XT NF 

180 L5$="":F0RX=1T05:L5$=L5$+CHR$(157):N 
EXT GB 

190 SP$="":F0RX=1T039:SP$=SP$+" ":NEXT BP 
200 SZ$=CHR$(17)+CHR$(29)+CHR$(110)+CHR$ 
(163)+CHR$(109)+CHR$(157)+CHR$(157) OC 

210 SZ$=SZ$+CHR$(157)+CHR$(17)+CHR$(125) LM 
220 T$=CHR$(111)+CHR$(183)+CHR$(183)+CHR 
$(183)+CHR$(112)+L5$+CHR$(17) OJ 

230 T$=T$+CHR$(165)+R3$+CHR$(167)+L5$+CH 
R$(17) FC 

240 T$=T$+CHR$(165)+R3$-t-CHR$(167)+L5$+CH 
R$(17) FC 

250 T$=T$+CHR$(108)+CHR$(175)+CHR$(175)+ 
CHR$(175)+CHR$(186)+L5$+U3$ HB 

260 BS$=B2$ : F0RX=1T05 : BS$=BS$+CHR$( 166) : 
NEXT EE 

270 BS$=BS$+L5$+CHR$(17):BT$="":F0R X=1T 
04 : BT$=BT$+BS$ :NEXT: BS$=BT$+B1$ NG 

280 DIMCH$(24):F0R X=1T024:READCH$:CH$(X 
)=CH$:NEXT DP 

290 DATA A,B,C,D,E HI 

295 DATA F,G,H,I,J KD 

300 DATA K,L,M,N,0 NC 

305 DATA P,Q,R,S,T OF 

310 DATA U,V,W,X GE 

320 IF PEEK (49475)0234 OR PEEK ( 49806 )<> 
24THEN GOSUB9010 JE 

330 PX=0:POKE53280,PX:P0KE53281,PX BC 

340 PRINTSC$:K$="" 01 

350 PRINTDO$;SP$;B1$;:GOSUB8010:GOT0360 00 

AHOY! HI 



360 PRINTHM$; JH 

370 R0W=5:C0L=1:BR=5:BC=5:MV=0:CU$=T$ A0 
380 PRINT D0$ ; SPC( 7 );C0$( 2); "JOYSTICK OR 

KEYBOARD (J/K)"C2$; DD 

390 GETKK$:IFKK$=""THEN390 AO 

400 IFKK$="J" THEN420 OD 

410 IPKK$<>"K" THEN390 IF 

420 PRINTDO$;SP$;:GOSUB304O DA 

430 REM *** MIX Y/N PRINT *** MK 
440 PRINTC0$(4);D0$;LEFT$(SP$,15);"MIX 

(Y/N)"; HJ 

450 GETA$;IFA$=""THEN450 HE 
460 IFA$= "Y"THEN PRINTD0$;SP$; :G0SUB304 

0:G0SUB4010:MV=0:PRINTD0$;SP$; :GOT0490 JP 

470 IFA$= "N"THEN PRINTD0$ ; SP$ ; : G0T0490 KA 

480 G0T0450 CN 

490 CU$=T$:G0SUB3040:IFKK$="K" THEN7000 OA 

500 GOT02010 FG 

1000 REM *** SCROLL ROUTINE *** JF 

1010 MV=MV+1:PRINTD0$B2$"M0VE"B1$;MV; JP 

1020 ON D G0T01030, 1050, 1060, 1080 OG 

1030 ML=49661:R=5:VU=0:C0L=C0L-HU OG 

1040 GOT01090:REM *LEFT HG 

1050 ML=49735:R=5:VU=0:G0T01090:REM *RT JM 

1060 ML=49416:R=4:HU=0:R0W=R0W-VU GH 

1070 G0T01090:REM *UP AP 

1080 ML=4 94 83 ^=4:^1=0: GOTO 1090: REM *DN KP 

1090 L=(C0L-l)*5+8:T=(RGW-l)*4+2 DO 

1100 H=(HU+1)*5:V=(VU+1)*4 LF 
1110 POKE251,L:POKE252,T:POKE253,H-l:POK 

E254.V-1 HF 

1120 GOSUB6510 GD 

1130 FOR X=1T0R LC 

1140 POKE254,V-l:P0KE2,l NE 

1150 SYS ML DM 

1160 NEXT IA 

1170 POKE S+4,16 FG 

1180 RETURN IM 

1500 GET K$:IF K$=" "THEN 1500 II 

1510 RETURN IM 

2000 REM *** READ JOY STICK *** BO 

2010 JV=PEEK(56320) GA 

2020 GETK$:IFK$=CHR$(147)THEN350 JP 
2030 FR=JVAND16:IF FR016THEN G0SUB5010: 

G0T02010 NB 

2040 JV=15-(JVAND15) GH 

2050 IF JV=0 THEN GOSUB2110:GOT02010 KN 
2060 IF JV=1 AND R0W>1 THEN R0W=R0W-1:G0 

SUB3010:GCT02010 OP 
2070 IF JV=2 AND R0W<5 THEN R0W=R0W+1:G0 

SUB3010:G0T02010 EJ 
2080 IF JV=8 AND C0L<5 THEN C0L=C0L+1:G0 

SUB3O10:GOT02010 NH 
2090 IF JV=4 AND C0L>1 THEN C0L=C0L-1:G0 

SUB3010:G0T02010 LI 

2100 G0T02010:REM * INVALID DIRECTION * CP 

2110 PRINTC1$;T$; CO 

2120 PRINTC2$;T$; DL 
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2130 RETURN IM 

3000 REM ******* SET CURSOR ******* LE 

3010 IF FL THEN CU$=BS$ PO 

3020 PRINTC1$;CU$;C2$; EJ 

3030 CU$=T$ PA 

3040 R=(R0W-l)*4+2:C=(C0L-i:*5+8 MP 

3050 P0KE251,R:P0KE252,C JI 

3060 SYS 49806 KL 

3070 PRINTCU$; 10 
3080 IF R0W=BR AND C0L=BC THEN FL=1:G0T0 

3100 BA 

3090 FL=0 HJ 

3100 RETURN IM 

4000 REM ******* RANDOM MIX ******* JJ 
4010 A=RND(RND(0)):PRINTLEFT$(DO$,5);B2$ 

; "MIXING"B1$ ; :GOSUB3040 MH 

4020 FOR MX=1 TO 20 CA 

4030 GOSUB4180 GC 

4040 IFA2=1THENROW=BR:COL=BC-A:GOT04060 HJ 

4050 R0W»BR:C0L=BC+A HN 

4060 IF C0L<1 OR C0L>5 THEN4030 CL 

4070 G0SUB3010:G0SUB5010 AH 

4080 GETK$:IFK$<> ,m THEN4160 FN 

4090 G0SUB4180 GC 

4100 IFA2=1THENCOL=BC:ROW=BR-A:GOT04120 OA 

4110 COL=BC:ROW=BR+A KH 

4120 IF R0W<1 OR R0W>5 THEN4090 IB 

4130 G0SUB3010:G0SUB5010 AH 

4140 GETK$:IFK$<>"" THEN4160 FN 

4150 NEXT I A 
4160 PRINTLEFT$(D0$,5);LEFT$(SP$,6);:G0S 

UB3040 FO 

4170 RETURN IM 

4180 A=INT(RND(1)*4)+1 AP 

4190 A2=INT(RND(1)*2) EB 

4200 RETURN IM 

5000 REM *** PREPARE TO SCROLL *** AE 

5010 IF COLOBC THEN5060 LO 

5020 IF BR=ROW THEN RETURN BI 

5030 VU=ABS(R0W-BR):D=4:TR=R0W+1 IK 

5040 IF BR<R0W THEN D=3:TR=R0W-1 BD 
5050 BR=ROW : GOSUB1010 : ROW=TR :G0SUB3040 : R 

ETURN AK 

5060 IF ROWOBR THEN G0SUB6010: RETURN FF 

5070 HU=ABS(C0L-BC):D=2:TC=C0L+1 CE 

5080 IF BC<C0L THEN D=1:TC=C0L-1 OD 
5090 BC=C0L : GOSUB1010 : COL=TC :GOSUB3040:R 

ETURN KI 

5100 IF COLOBC THEN RETURN HF 

6000 REM ******* BUZZER ******* ND 
6010 F0RA=1T08 : P0KE54296 , 15 : F0RT=1T03 : NE 

XT:POKE54296,0:FORT=1T03:NEXT:NEXT LF 

6020 RETURN IM 

6500 REM *** PONG SUBROUTINE *** ML 

6510 S=54272 BI 

6520 POKE S+1,20 FE 

6530 POKE S+5,9 DG 

-6540 POKE S+6,9 DP 



6550 POKE S+24,4 FH 

6560 POKE S+4,17 FF 

6570 RETURN IM 

7000 REM *** GET KEYBOARD INPUT *** FB 
7010 GETK$:IFK$- IIH THEN GOSUB211O:GOT070 
10 JD 

7020 IFK$=CHR$(147)THEN350 JD 

7030 IFK$=" " THEN GOSUB5000:GOTO7010 OA 
7040 IF K$="A" AND R0W>1 THEN R0W=R0W-1: 
G0SUB3010:GGT07010 EE 

7050 IF K$="Z" AND R0W<5 THEN R0W=R0W+1: 
G0SUB3010:G0T07010 GC 

7060 IF K$="." AND C0L<5 THEN COUCOL+l: 
GOSUB3010:G0T07010 FK 

7070 IF K$="," AND C0L>1 THEN C0L=C0L-1: 
GOSUB3010:GOT07010 BJ 

7080 GOT07010 FL 

8000 REM ******* DRAW BOARD ******* IC 
8010 CH=1:PRINTB1$; :IFK$=CHR$(147)THEN81 
00 PJ 

8020 PRINTHM$;SPC(6);CHR$(117); :F0RX=1T0 
27:PRINTCHR$(96) j : NEXT: PRINTCHR$( 105) IG 
8030 PRINTSPC(6)CHR$(98);" " ; : F0RX=1T025 
:PRINTCHR$( 164) ;:NEXT; PRINT" "CHR$(98) MC 
8040 PRINTLEFT$(D0$ f 2):F0R X=l TO 20 LH 
8050 PRINT SPC(6);CHR$(98);CHR$(167);SPC 
(25);CHR$(180);CHR$(98) EF 

8060 NEXT IA 

8070 PRINTHM$;LEFT$(D0$,23); BC 

8080 PRINTSPC(6)CHR$(98);" "; :F0RX=1T025 
:PRINTCHR$( 163) ;:NEXT: PRINT" "CHR$(98) MF 
8090 PRINTSPC(6);CHR$(106);:FORX=1T027:P 
RINTCHR$(96); : NEXT: PRINTCHR$( 107) HK 
8100 FOR R0W=1 TO 5 DM 

8110 FOR C0L=1 TO 5 DA 

8120 IF R0W=5 AND C0L=5 THEN PRINTB3$;:C 
U$=BS$:G0SUB3040:GOTO8170 KM 

8130 PRINTB3$;:CU$=BS$:G0SUB 3040 KJ 
8140 PRINTBi$;:CU$=T$:GOSUB3040 BN 
8150 PRINTB2$;:CU$=SZ$:GOSUB3040 DI 
8160 PRINTC0$(R0W);CH$(CH);B2$;CHR$(125) 
:CH=CH+1 LO 

8170 NEXT COL GF 

8180 NEXT ROW HN 

8190 RETURN IM 

9000 REM ******* ML ROUTINES ******* ON 
9010 F0RI=49416T049815 GD 

9020 READT:POKEI,T:NEXT CF 

9030 RETURN IM 



49416 DATA32.226, 193, 165, 251, 166, 252,32, 
155,193,32,205,193,166,254,202,48 EI 
49433 DATA21, 24, 165, 208, 105, 40, 133, 210,1 
33,214,165,209,105,0,133,211,32 JL 
49450 DATA119, 193, 202, 16,235, 164,253, 185 
,32,192,145,208,185,72,192,145,212 DA 
49467 DATA136,16,243,32,226,193,88,96,23 
4,234,234,234,234,234,234,234,32 KG 
49484 DATA226,193,32,132,194,170,165,251 
,32,155,193,32,205,193,166,254,202 PL 
49501 DATA240,208,56,165,208,233,40,133, 
210,133,214,165,209,233,0,133,211 BL 
49518 DATA24,32, 119,193,202,16,234,48, 18 
4,41,3,9,216,133,215,164,253 DM 

49535 DATA177, 210, 145,208,177,214,145,21 
2,136,16,245,165,211,133,209,165,210 GM 
49552 DATA133,208,165,215,133,213,165,21 
4,133,212,96,72,169,216,133,208,172 KG 
49569 DATA136, 2, 136, 132, 209, 24, 165,208,1 
05,40,133,208,165,209,105,0,133 CF 
49586 DATA209 , 202 , 16 , 240, 24 , 104 , 101 , 208 , 
133,208,133,212,165,209,105,0,133 PI 
49603 DATA209,41,3,9,216,133,213,164,253 
,96,165,2,208,3,169,32,44 NE 

49620 DATA177, 208, 153,32, 192,177,212, 153 
,72,192,136,16,236,96,120,162,30 HL 
49637 DATA 181, 208, 72, 189, 0,192, 149, 208,1 
04,157,0,192,202,16,241,96,234 FK 
49654 DATA234,234,234,234,234,234,234,32 
,226,193,32,132,194,165,251,166,211 EO 
49671 DATA32, 155, 193, 160, 0,177, 208, 133, 2 
10,177,212,72,144,13,200,177,208 GG 
49688 DATA72, 177, 21 2, 136, 145, 212, 104, 145 
,208,200,196,253,144,239,165,2,208 NJ 
49705 DATA3, 169, 32, 44, 165, 210, 145,208,10 
4,145,212,198,211,198,254,16,201 CO 
49722 DATA32, 226,193,88,96,234,234,234,2 
34 , 234 , 234 , 234 , 234 , 32 , 226 , 193 , 32 01 
49739 DATA132,194,165,251,166,211,32,155 
,193,177,208,133,210,177,212,72,164 PO 
49756 DATA253,240,15, 136,177,208,72, 177, 
212 , 200, 145, 212, 104 , 145,208, 136, 208 BB 
49773 DATA241,165,2,208,3,169,32,44,165, 
210,145,208,104,145,212,198,211 AN 
49790 DATA198,254,16,203,48,182,166,252, 
138,24,101,254,133,211,96,234,24 DC 
49807 DATA 164, 252, 166, 25 1,32, 240, 255, 96, 
234 LB 

1 
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Continued from page 80 
BASIC does with memory where it thinks screen mem- 
or> is. The VIC chip is still looking at 1024. which 
BASIC isn't changing. 

Now. if you are using this technique in a long pro- 
gram, then of course you'll have to move video mem- 
ory to a higher block. As it stands, your program would 
oim have the space between the end of screen memory 
at 2048 and the beginning of BASIC'S screen memory 
at 15360. That's fine for this example program, but a 
long game would need more elbow room. For the tech- 
nique of moving video memory, see the column two 
months ago, which played games with memory like you 
wouldn't believe. 

This technique will also work with the VIC, which 
also has its BASIC screen memory pointer at 648. How- 
ever, it is almost worthless to try this technique unless 
you have expanded memory beyond 8K; if you do have 
an expanded VIC. you should have little trouble trans- 
lating this program from the 64 version included in this 
issue. 

WORMS IN COLOR MEMORY 

You can do a lot more with color memory than just 
highlight options. Remember that the character patterns 
only decide which dots in a character cell display fore- 
ground color and which display background color. It's 
color memory that does the rest. For example, you could 
fill the entire screen with characters, but if the back- 
ground color and the foreground color were the same, 
the screen would look completely blank. Only when you 
changed color memory would any portion of the screen 
become visible. 

So here is a rudimentary game that lets you control 
a worm moving around the screen. Every character on 
the screen is the same-CH$(90), the diamond-shaped 
dot, However, most of them arc invisible. Some of them 
are orange -these arc the segments of the worm. Some 
of them are green -these are food. When the worm eats 
food, it gels longer. 

The worm is run through the array variable WM(n). 
Each element of the array represents a segment of the 
worm; each clement contains the address of that seg- 



ment in color memory. Every time the worm moves, 
all the addresses are changed in the array WMffl), as 
segment 2 is now "located" where segment 1 used to be. 
But only the first and last segments need to be POKEd- 
the first segment is changed to the worm color. CW, 
and the last segment is changed to the background col- 
or, CB. When 12 bits of food have been "eaten" and the 
worm is 15 segments long, the game starts over. 

Use 17 and f5 for vertical movement. SHIFT and 
COMMODORE for horizontal movement. Press RUN/ 
STOP to end the game. Both VIC and 64 versions are 
included in the program listings section. 

Next month we'll take a close look at a fantastic pro- 
gram from Electronic Arts: Seven Cities of Gold. And 
we'll look at ways to make a program respond to the 
player's behavior, so that the whole mood of a game can 
take on the personality the player shows while playing. 

What we're talking about is, in a sense, behavioral con- 
ditioning. By setting up a reward and punishment sys- 
tem, we'll be encouraging some actions and discourag- 
ing others. It's just as the parents of videogame players 
always suspected -wc game designers are out to turn 
our players into puppets! 

Thanks to Walter Meyers and Jan Iverson for send- 
ing me their excellent games. Both of you set difficult 
problems for yourselves and solved them admirably. I 
only wish you were offering them for publication, so 
that other readers could see some of the dazzling things 
that can be done with resourceful and creative game pro- 
gramming. 

Also, thanks it) Derward F. McKinncy. who kindly 
sent in all the changes that would be necessary to allow 
lite Emerald Elephant ofCipaiigu. from one of these 
columns last fall, to run on the VIC 20 (with at least 
16K). If anyone would care to have a copy of his letter, 
send a stamped, self-addressed envelope to: 

Elephant for VIC 
546 Lindley Road 
Greensboro. NC 27410 

I'll xerox Mr, McKinney's letter and send you a copy. 
Since I don't have memory expansion on my VIC, I can't 
test his changes, but I assume they work. D 

SEE PROGRAM LISTINGS ON PAGE 88 
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BEACH-HEAD — As cnief 
commander of armed forces f 
in the Pacific, your first 
: assignment is a lough one Your mission is to obtain a quick 
naval victory and invade enemy territory with land forces. BEACH-HEAD II 
— The wartime drama continues with "The Dictator Strikes Back 
BEACH-HEAD II is a true "head to head" two player game with voice 
simulation and superb multiscreen graphics. RAID OVER MOSCOW — 
The Soviets launch a first strike against the United States, Can your 
commandos react in time to stop the attack'' 
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These Access Software products are compatible with the 
Commodore 64, Atari, Apple II+/IIC/IIE and IBM PC/PC Jr Be 
Snf t \A/arP inrnrnnr^f^w sure to look f or other Access Software products at a store near you. 
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INTRODUCING THE FAST LOAD 
CARTRIDGE FROM EPYX. 

You're tired of waiting forever for your Commodore d4 
programs to load. But it's no use glaring at your disk 
drive. Calling it names won't help, either. It was bom 
slow - a lumbering hippo. You need the FAST LOAD 
CARTRIDGE from EPYX. FAST LOAD transforms 
your Commodore 64 disk drive from a lumbering hippo 
into a leaping gazelle. With FAST LOAD, programs 
that once took minutes to load are booted up in a matter 
of seconds. 

FAST LOAD can load, save and copy your disks five 
times faster than normal. It plugs into the cartridge port 



of your Commodore 64 and goes to work automatically, 
loading your disks with ease. And that's only the 
beginning. You can copy a single file, copy the whole 
disk, send disk commands, and even list directories 
without erasing programs stored in memory. 

And unlike other products, the FAST LOAD 
CARTRIDGE works with most programs, even copy 
protected ones, including the most popular computer 
games. 

The FAST LOAD CARTRIDGE from Epyx, Easy 
to insert, easy to use and five times faster. So why 
waste time waiting for your disks to load? 

Speed them up tvith FAST LOAD! 
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